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ABSTRACT 


One  of  the  most  time  consuming  parts  of  the  design  process  is  the  debugging  of 
the  project.  This  happens  when  simple  modifications  to  a  circuit  require  recompilation 
of  the  whole  circuit. 

In  the  CAD  tool  currently  available  for  digital  systems  design,  compilation  is  a 
bottle  neck.  The  VOHL  system  has  an  extremely  efficient  simulator  phase  and  a 
reasonable  but  slower  compilation  phase. 

This  thesis  investigates  a  mechanism  for  eliminating  the  need  to  recompile  the 
complete  circuit  when  small  changes  are  needed. 
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I.  INTRODUCTION 


A.  BACKGROUND 

The  project  of  the  multilevel  logic  simulator  began  in  1981  when  Ausif 
Mahmood,  as  part  of  his  doctoral  research  at  the  Washington  State  University,  started 
the  construction  of  a  VLSI  logic  simulator,  that  had  been  developed  by  Dr.  H.  B. 
Rigas.  The  principal  idea  of  this  development  was  to  try  to  design  a  simulator  that 
could  have  superior  performance  to  commercial  systems  and  be  portable  among  a 
number  of  off-the  shelf  computer  systems. 

The  system  was  enhanced  in  1986  when  Lt.  J.  Scott  Kelly,  as  part  of  his  Master 
of  Sciences  degree,  made  some  modifications  in  the  existing  system  to  add  facilities  to 
the  simulator. 

In  the  initial  stage  of  the  simulator  a  circuit  is  built  using  the  VLSI-Oriented 
Hardware  Language,  or  VOHL.  With  this  syntax  the  user  can  totally  describe  the 
circuit  to  be  simulated.  This  description  of  the  circuit  is  sent  to  the  Compiler  program 
which  translates  the  VOHL  statements  into  a  series  of  data  structures  that  allow  a 
posterior  simulation  of  the  circuit.  After  the  data  structures  are  built,  the  Timing 
Wheel  Simulator  executes  the  actual  simulation  of  the  circuit. 

B.  THE  TOOLS 

1.  VOHL  syntax 

The  VOHL  description  language  allows  the  user  to  describe  the  digital  circuits. 
The  complete  presentation  of  the  language  was  presented  in  Mahmood  (  [Ref.  1J ).  To 
allow  a  presentation  of  a  brief  description  of  the  language,  the  circuit  presented  in 
Figure  1.1  was  designed.  Figure  1.2  presents  the  VOHL  syntax  for  this  circuit,  showing 
all  the  possibilities  that  are  available  in  the  language  for  the  description  of  a  circuit. 

Each  circuit  that  we  want  to  describe  in  the  VOHL  is  called  a  module,  and  the 
beginning  of  each  module  is  presented  by  the  keyword  MODULE,  followed  by  the 
name  that  the  user  wants  to  give  to  the  module.  The  next  step  in  the  description  of 
the  circuit  is  the  presentation  of  its  inputs  and  outputs,  and  these  parts  are  defined  in 
the  syntax  by  the  keywords  INPUT  and  OUTPUT,  respectively.  After  each  one  of 
these  keywords  the  user  presents  the  names  of  the  variables  that  are  the  inputs  and  the 
outputs  for  the  circuit  being  described. 


V 


Figure  1.1  A  digital  circuit  -  schematic 


MODULE  «  TEST; 

INPUTS  s  Clr,  CLK,  EN; 

OUTPUTS  :  A; 

TYPES  :  NANDTHRE  :  NANDT1  ; 

EXOR  s  EXOR1  ; 

NOR  s  MORI  ; 

NAND  :  NANDI  : 

INTERNALS  «  Al,  A2,  A3.  A4,  A5,  A6,  A7 ,  A8,  A9,  A10,  All, 
A12,  A13,  A14,  A15,  A16,  A17,  A18,  A19; 

^  A17  «  ANDFOUR  (A12,  A10,  A6,  EN) ; 

Al  *  OR  (CLK,  EN); 

USING  (NOEXP ,EXORl)  :  A2  =  EXOR  (clr,  Al); 

A19  *  ORTHREE  (A17,  A18,  A14); 

A5  »  INVERT  (A4) ; 

USING  (NANDI)  t  A7,  A8,  A9  =  SR8L0CK  (clr,  A6,  A4); 

A12,  A13,  A14,  A15,  A16  *  RETDBLO  (A3,  AS,  Al,  A8,  All,  A6); 

A  *  AND  (clr,  A19) ; 

USING  (NOEXP, NOR1)  t  A10  »  NOR  (A5,  A8); 

USING  (NOEXP, NANDI)  «  A4  »  NAND  (EN, A3) ; 

All  *  ORFOUR  (A10,  A7,  A2 ,  EN); 


USING  ( NOEXP, NANDT1)  :  A3 
A6  =  ANDTHRE  (A4,  A2.  Al); 


NANDTHR  (CLK,A1,A2) 


} 


nw  —  \  m  t  .  n*  /  # 

A18  *  NANDFOU  (Al,  clr,  A13,  A8); 


;0,0)»2,  FALLDEL(0,0)»4, 
;i,0)32,  FALLDEL(1,0)*3; 
-(0 ,0)a3  ; 


DEFINE  s  ANDt  RISEDEL(0,0; 

RISEDEL( :  ‘ 

NOR1:  FALLDEL( _ 

EXOR1  *  RISEDEL(1,0)»3,  FALLDEL(0,0)*2; 
NANDT1  i  RISEDELL( 2 , 0 )*2 ,  FALLDEL(1,0)*3; 
ANDFOUR  «  FANOUT  *  10  ; 

ORTHREE  j  OVERLOAD  »  2; 

NANDI «  RISEDELAY(0 ,0 )*3 ,  F ALLDELAY ( 0 , 0 ) =2 , 
RISEDELAY ( 1 , 0 ) *4 ; 

INITIALIZE  s  A  ■  1,  A10=  1,  A3  »  0  ; 

PRINTOUT  :  clr,  CLK,  EN,  AS,  A; 

END; 


Figure  1.2  A  VOHL  description  of  a  circuit 

The  keyword  TYPES  begins  the  next  part  in  the  description.  This  part  can  be 
divided  into  two  parts:  the  first  part  begins  with  the  keyword  INTERNALS,  and  lists 
all  the  variables  that  are  restricted  to  the  circuit  being  described,i.e.,  those  that  are  not 
inputs  or  outputs  to  the  circuit.  The  second  part  does  not  have  a  specified  keyword  to 
define  it.  In  this  part  the  user  presents  the  names  that  he/she  has  given  to  those  gates 
that  have  specifications  that  are  different  from  the  default  specifications  for  the  gates. 
For  example,  if  the  user  wants  to  use  one  of  the  AND  gates  of  the  circuit  with  different 
delay  values  he/ she  might  name  this  type  of  gate  as  AND1.  This  information  will 


appear  in  the  description  as  AND  :  AND1,  and  when  the  compiler  reads  this  definition 
it  will  expect  a  further  definition  of  the  changes  for  this  kind  of  gate.  All  the  gates  that 
have  differences  with  respect  to  the  standards  need  to  be  presented  in  this  part,  with 
this  syntax. 


READ IN  0020 
AND  2  1  2  0 
OR  2  1  2  0 
NAND  2120 
NOR  2  1  2  0 
INVERT  1120 
EXOR  2120 
ANDTHRE  3120 
NANDTHR  3120 
SRBLOCK  3321 
RETDBLO  6521 
ANDFOUR  4120 
NANDFOU  4120 
ORTHREE  3120 
ORFOUR  4120 


Figure  1.3  The  library  of  primitives 


Since  all  the  variables  and  modified  gates  that  will  be  used  in  the  circuit  are 
already  declared,  the  user  can  now  start  to  describe  the  circuit  to  be  simulated.  The 
actual  structure  of  the  circuit  is  presented  in  the  following  scheme: 

output  variable  -  primitive  name  (input  variables) 

where: 

1.  output  variable  -  one  (or  more)  of  the  outputs  or  internals  presented  in  the 
declaration  part  of  the  circuit; 

2.  primitive  name  -  one  of  the  primitives  that  is  supported  by  the  system  in  its 
library  or  an  user  primitive  that  will  be  described  in  future  modules.  The  library 
of  primitives  that  are  actually  supported  by  the  system  is  presented  in  the 
Figure  1.3; 

3.  input  variable  -  one  (or  more)  of  the  variables  (input,  output  or  internals) 
presented  in  the  declaration  part  of  the  circuit. 

The  library  of  primitives  presented  in  the  Figure  1.3  appears  as  a  table,  with 
each  element  having  5  different  fields.  A  complete  description  of  the  meaning  of  the 
fields  can  be  found  in  Kelly  ( [Ref.  2]  ).The  fields  that  compose  the  library  of  primitives 


1.  The  user-defined  name  of  the  primitive 

2.  number  of  inputs  in  the  primitive 

3.  number  of  outputs  in  the  primitive 

4.  type  of  description  available  for  the  primitive  -  This  number  shows  what  kind  of 
description  was  made  for  the  primitive.  If  the  primitive  has  a  block  level 
description  this  number  is  0.  If  the  description  is  a  structural  description  this 
number  is  1  and  if  the  description  is  composed  by  both  types  of  descriptions 
this  number  is  2.  This  field  is  important  because,  depending  of  the  type  of 
description  of  the  primitive,  some  restrictions  apply  to  its  use  in  both,  the 
Compiler  and  the  Editor  programs. 

5.  primitive  level  -  This  field  shows  the  level  of  the  primitives  supported  by  the 
system.  If  the  primitives  are  basic  gates,  they  are  in  the  lowest  level  of  the 
system,  and  consequently,  the  level  will  be  0.  If  the  primitive  is  composed  only 
by  gates  of  level  0  it  will  be  a  level  1  primitive.  If  in  the  composition  of  the 
primitive  contains  at  least  one  level  1  description,  it  will  be  a  level  2  primitive, 
and  so  on. 

During  the  description  of  the  circuit  the  user  also  presents  to  the  system  with 
the  gates  that  he/she  defined  in  the  TYPES  part  of  the  description  to  be  used.  The 
position  of  the  gates  are  indicated  by  using  the  keyword  USING,  followed  by  the  name 
given  by  the  user  to  that  specific  gate.  When  the  system  reads  the  keyword  it 
understands  that  some  of  the  characteristics  of  this  gate  are  different  from  the  standard 
values,  and  it  will  expect  the  definition  of  these  values  in  a  future  part  of  the  syntax. 

After  the  description  of  the  circuit  the  user  presents  the  control  specifications 
for  the  simulation.  First  of  all,  the  keyword  DEFINE  is  used  to  allow  the  user  to  define 
gates  with  specifications  that  are  different  from  those  specified  in  the  library.  In  this 
part  the  user  presents  the  specification  for  the  specific  gates  that  were  presented  in  the 
TYPES  part  of  the  description  or  for  a  general  gate.  In  this  part  the  user  can  specify 
rise  delay,  fall  delay  and  fanout  for  a  gate  as  well  as  define  its  functional  description. 

Some  of  the  primitives  presented  in  the  library  are  really  a  collection  of  gates 
that  are  defined  for  the  system  and  that  can  be  treated  as  a  single  element.  However, 
the  user  might  need  to  modify  some  of  the  internal  characteristics  of  these  elements, 
and  to  do  that  it  is  necessary  to  expand  the  gate  to  a  lower  level.  In  the  VOHL  syntax 
expansion  to  a  lower  level  is  invoked  by  the  keyword  EXPAND,  where  the  user 
expands  a  gate  to  a  lower  level  and  makes  the  necessary  modifications  to  the  gate.  The 
Figure  1.4  shows  the  expansion  of  the  RETDBLO  to  allow  the  internal  gates  of  the 
circuits  to  have  delays  that  are  different  from  the  standard  delays. 
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Figure  1.4  The  RETDBLOck  -  expansion 

The  keyword  INITIAL  is  used  if  any  of  the  internals  or  outputs  must  be 
initialized  to  a  specified  value.  The  PRINTOUT  keyword  is  used  to  show  the  variables 
that  will  be  printed  after  the  simulation. 

If  during  the  description  of  the  circuit  the  user  defines  a  primitive  that  is  not 
one  of  those  supported  by  the  system  this  new  primitive  needs  to  be  described  to  the 
system.  This  description  is  done  in  the  same  way  as  the  original  circuit  and  is  called  a 
submodule.  The  submodules  will  have  the  same  syntax  as  the  principal  module,  with 
the  restrictions  that  the  name  that  appears  after  the  keyword  MODULE  needs  to  be 
the  same  name  that  appeared  in  the  primitive  part  of  the  description,  and  that  those 
submodules  need  to  be  described  after  the  end  of  the  description  of  the  module  where  it 
was  named.  The  Figure  1.5  presents  an  example  of  a  description  using  submodules. 

2.  Compiler 

The  VOHL  statements  are  compiled  into  data  structures  which  are  used  by  the 
simulator. 

One  of  the  most  important  structures  for  the  system  are  the  descriptor 
records.  Descriptor  records  are  explained  in  more  detail  in  the  Chapter  2.  Briefly,  they 
are  records  that  describe  the  behavior  of  each  element.  The  record  is  composed  by 
various  fields,  each  one  with  its  corresponding  function.  As  we  can  see  in  Figure  1.6, 
the  record  has  fields  for  the  type  of  primitive  function,  pointers  for  up  to  two  inputs 
and  fields  for  their  values,  and  also  fields  for  parameters  like  fall  delay,  rise  delay, 
technology,  fan-out  and  so  on.  The  number  of  inputs  or  outputs  for  each  gate  can  be 
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MODULE  t  ADDFOUR; 

INPUTS  s  AO.  Al.  A2.  A3.  BO.  Bl,  B2,  B3.  CIO  ; 
OUTPUTS  «  SO.  SI,  S2,  S3.  C03  ; 

TYPES  i  INTERNALS  «  COO,  COl,  C02  ; 

50,  COO  ■  FULLADD  (AO,  BO,  CIO); 

51,  COl  •  FULLADD  (Al,  Bl.  COO); 

52,  C02  ■  FULLADD  (A2,  B2,  COl); 

53,  C03  *  FULLADD  (A3,  B3,  C02); 

Define 

INITIALIZE  ;  Cl 0*0 ; 

PRINTOUT;  S3,  S2,  SI,  SO,  C03; 

MODULE  i  FULLADD  ; 

INPUTS  ;  A  ,  B  ,  CIN  ; 

OUTPUTS  «  S  ,  CO  ; 

TYPES  i  INTERNA  :  X  ,  Y  ,  Z  ; 


rPES  < 
,  Y  * 


X  ,  Y  *  HALFADD  (  A 
S  ,  Z  *  HALFADD  (  X 
CO  -  OR  (  Z  ,  Y  ) ; 

MODULE  ;  HALFADD  ; 
INPUTS  ;  C  ,  D  ; 
OUTPUTS  «  T  ,  COH  ; 

nES  ;  ; 

EXOR  (  C  ,  D  ) ; 
COH  ■  AND  (  C  ,  D  ); 


Y  ,  Z  ; 

B  ) ; 

CIN  ) ; 


Figure  1.5  The  VOHL  description  with  sub-modules 

extended  incrementally  using  an  extension  pointer.  For  example,  the  three  input  OR 
gate  needs  two  records,  one  that  will  hold  two  inputs  and  the  output  and  another 
record  that  holds  the  other  input.  The  descriptor  records  are  connected  together  by  the 
head  pointer,  to  form  the  circuit. 

The  Figures  1.7  and  1.8  present  a  simple  demonstration  circuit  and  the 
connections  of  the  descriptor  records  for  that  circuit  respectively.  We  can  see  that  all 
the  descriptor  interconnections  follow  the  way  in  what  they  are  presented  in  the  VOHL 

syntax.  More  detailed  information  about  how  the  descriptors  are  built  and 

% 

interconnected  can  be  found  in  (Ref.  3]  and  in  [Ref.  4], 

The  principal  function  of  the  compiler  is  to  create  a  SIMDATA  file  that  will 
be  used  by  the  simulator  to  build  the  descriptor  record  for  each  descriptor.  The 
SIMDATA  file,  as  will  be  explained  later  on,  holds  all  the  information  about  each 
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descriptor,  such  as  if  it  is  an  input,  what  gate  is  being  used,  delays  and  so  on.  Figure 
1.9a  and  Figure  1.9b  present  the  SIMDATA  file  created  by  the  compiler  for  the  circuit 
presented  in  the  Figure  1.2  . 

To  create  the  SIMDATA  file  the  compiler  program  first  verifies  whether  the 
VOHL  program  describes  only  one  module  or  several  modules  in  the  circuit.  In  the 
latter  case,  the  submodules  that  are  defined  by  the  user  are  placed  in  an  table,  that  is 
called  expand  table,  and  the  structural  description  of  these  modules  are  moved  from 
the  user  program  to  a  temporary  library  for  posterior  usage.  Also  in  this  phase  the 
program  tries  to  find  the  keyword  EXPAND  and,  if  it  is  found,  the  module  names  that 
are  found  in  each  EXPAND  line  are  also  placed  in  the  expand  table. 

Until  now  the  system  was  in  hierarchical  form  but,  for  simulation  purposes, 
the  system  needs  to  be  represented  in  a  single  level.  To  do  that,  the  compiler  looks  for 
the  expand  table  to  verify  if  any  expansions  are  requested.  If  the  system  has  modules 
to  be  expanded,  and  if  they  are  system  primitives,  the  program  will  look  for  the 
auxiliary  file  STRUC,  to  build  the  single  level  description.  If  the  required  expansions 
are  user  defined  modules  the  system  will  build  the  single  level  description  using  the 
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INPUTS:  A,  B; 

OUTPUTS:  Q; 

TYPES:  INTERNALS:  XI,  X2,  X3; 
{ 

XI  >  AND ( A ,  B) i 
X3  *  OR (XI ,  B); 

X2  •  INVERT { XI ) ; 

Q  «  OR(X2,  X3 )  ; 

} 

DEFINE:  • 

INITIALIZE:  XI -0,  X2«0,  X3«0; 

PRINTOUT:  A,  B,  Qj 

END; 


Figure  1.7  A  demo  circuit 

temporary  library  defined  at  the  beginning  of  the  expansion  process.  Figure  1.10 
shows  the  single  level  description  for  the  circuit  after  all  the  expansions  be  performed. 

After  the  single  level  description  is  ready,  the  program  will  start  the 
construction  of  the  SIMDATA  file,  that  will  be  used  in  the  next  step  by  the  timing 
wheel  simulator. 

3.  Simulator 


To  allow  an  efficient  simulation  by  only  using  those  parts  of  the  circuit  that 
change  state,  the  multilevel  simulator  uses  the  concept  of  the  'activity  stack"  (  [Ref.  5] 
and  (Ref.  6]  ).  Activity  stacks  are  really  the  pointer  loops  that  are  built  during  the 
compilation  of  the  system.  When  the  state  of  a  system  element  is  modified,  the  pointer 
loop  that  is  originated  from  this  element  receives  a  flag,  that  marks  the  element  as 
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20  12 


23  12  0 
23  12  1 


33  0  0  1  0  0  321  1  0  2  1  33  1  0  1  1  0  218  1  1  2  1 

33  2  0  1  2  0  147  1  2  2  1 

33  20  11  2  15  3  15  1  15  8  20  1  15  11  0  1  20  9  0  1  20  12  0 

2  13  3  13  1  13  8  20  1  13  11  1  1  20  9  1  1  20  12  1 

1  20  15  23  1  23  16  20 

2  9  3  9  1  9  8  23  1  9  11  0  1  23  9  0  1  23  12  0 

2232128  23  12  11  11  23  911  23  12  1 

33  422131118411  11  0149014  12  0 
2232128412  11  1149114  12  1 
33  562030108510  11  0159015  12  0 
2434148514  11  1159115  12  1 
33  22  13  2  20  3  20  1  20  8  22  1  20  11  0  1  22  9  0  1  22  12  0 
2  21  3  21  1  21  8  22  1  21  11  1  1  22  9  1  1  22  12  1 

1  22  15  24  1  24  16  22 

2  17  3  17  1  17  8  24  1  17  11  0  1  24  9  0  1  24  12  0 
33  852737178817  11  0189018  12  0 

33  10  3  2  0  3  0  1  0  8  10  1  0  11  0  1  10  9  0  1  10  12  0 
2  11  3  11  1  11  8  10  1  11  11  1  1  10  9  1  1  10  12  1 
33  11  3  2  10  3  10  1  10  8  11  1  10  11  0  1  11  9  0  1  11  12  0 
2939198  11  19  11  11  11  911  11  12  1 
1  15  15  16  1  16  16  15  1  16  15  17  1  17  16  15 


12  1 

0  1  22  9  0  1  22  12  0 


1  11  12  1 
17  16  15 


11  12  0 


1  17  15  18  1  18  16  15  1  18  15  19  1  19  16  15 


33  15  10  2  6  3  6  1  6  8  15  1  6  11 
2838188  15  18  11  11  15  9 
2434148  16  14  11  01  16  9 


6  11  0 

15  9  1 

16  9  0 
1  1  16 


15  9  0  1 

15  12  1 

16  12  0 

1  1  16  12 


15  12  0 


2  11  3  11  1  11  8  16  1  11  11  1  1  16  9  1  1  16  12  1 

2  14  3  14  1  14  8  17  1  14  11  0  1  17  9  0  1  17  12  0 

2939198  17  19  11  11  17  911  17  12  1 
33  312030108310  11  0139013  12  0 
2  22  3  22  1  22  8  3  1  22  11  1  1  3  9  1  1  3  12  1 
33  13  4  2  8  3  8  1  8  8  13  1  8  11  0  1  13  9  0  1  13  12  0 

2  11  3  11  1  11  8  13  1  11  11  1  1  13  9  1  1  13  12  1 

33  732232128712  11  0179017  12  0 
2636168716  11  1179117  12  1 
33  14  14  2  13  3  13  1  13  8  14  1  13  11  0  1  14  9  0  1  14  12  0 
2  10  3  10  1  10  8  14  1  10  11  1  1  14  9  1  1  14  12  1 
1  14  15  25  1  25  16  14 

2535158  25  15  11  01  25  901  25  12  0 
2232128  25  12  11  11  25  911  25  12  1 
33  682131118611  11  0169016  12  0 
2434148614  11  1169-116  12  1 
1  6  15  26  1  26  16  6 

2535158  26  IS  11  01  26  901  26  12  0 
33  972737178917  11  0199019  12  0 
2535158915  11  1199119  12  1 
1  9  15  27  1  27  16  9 


2434148  27  14  11  01  27  901  27  12  0 


33  21  12  2  4  3  4  1  4  8  21  1  4  11  0  1  21  9  0  1  21  12  0 

2030108  21  10  11  11  21  911  21  12  1 

1  21  15  28  1  28  16  21 

2  16  3  16  1  16  8  28  1  16  11  0  1  28  9  0  1  28  12  0 

2  11  3  11  1  11  8  28  1  11  11  1  1  28  9  1  1  28  12  1 


4  20  5215315415516  20  52153154155 
4452153154155145521531541551 
4  22  5215315415516  22  521531 
485215314  10  521531541551 


4  11  5215315415514  15  522532 

14  0  16  0  2  17  0  2  15  0  1  16  1  2  17  1  2  18  1  2  19  1  2 

15  1  2  16  2  2  17  2  2  15  2  3  16  3  2  17  3  2 

6  15  522532542552  14  4  16  42  17  42  18  42  19  42 
15  4  5  16  5  2  17  5  2  18  5  2  19  5  2  15  5  6  16  6 

2  17  6  2  18  6  2  19  6  2  15  6  7  16  7  2  17  7 


Figure  1.9a  The  SIMDATA  file 
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Figure  1.9b  The  SIMDATA  File  (continued) 


EXOR  (  AO 
AND  (  AO  , 
EXOR  (  XO 
AND  (  XO  , 

•  OR  (  ZO  , 
EXOR  (  A1 
AND  <  Ai  , 
EXOR  <  XI 
AND  (  XI  , 

•  OR  (  Z1  , 
EXOR  (  A2 
AND  (  A2  , 
EXOR  (  X2 
AND  (  X2  , 
»  OR  (  Z2  , 

EXOR  (  A3 
AND  (  A3  , 
EXOR  (  X3 
AND  (  X3  , 
■  OR  (  Z3  , 


.BO.)  ? 

80  2  < 

,  '• 
CIO  )  ; 
VO  >.; 

'  81x>  * 

,  coi  j  ; 

COO  )' ; 

»  B2  )  ; 
B2  )  ; 

,  COI  J  ; 
COl  )  ; 
V2  )  ; 

,  B3  )  ; 

83  2  < 

'  ; 

C92x>  ; 
Y3  )  ; 


Figure  1.10  A  single  level  description 

“potentially  active"  (  [Ref.  5]  and  [Ref  6]  )  and  those  stacks  are  scheduled  to  be 
evaluated. 

Now  suppose  that  the  activity  stacks  that  receive  the  flag  were  evaluated  and 
both  change  their  states  (as  a  function  of  the  initial  state's  change).  In  this  case  all  the 
stacks  that  are  connected  to  to  these  two  stacks  receive  a  "potentially  active"  flag,  and 


will  be  evaluated  in  the  next  step.  If  all  of  the  flagged  stacks  are  not  modified  when 
the  initial  state  changes,  the  system  will  forgot  them,  because  they  will  not  influence 
the  posterior  function  of  the  circuit.  In  the  same  way,  the  stacks  that  are  connected  to 
the  stacks  that  changed  their  states  will  receive  a  flag  to  allow  a  posterior  evaluation. 
This  evaluation  is  cyclic  (  [Ref.  5]  and  [Ref.  6]  ),  so  the  procedure  is  repeated  until  all 
the  circuit's  inputs  have  been  exhausted. 

The  advantage  of  this  algorithm  is  the  speed,  since  only  those  stacks  that  are 
flagged  as  "potentially  active"  are  analyzed. 

C.  WHY  THE  EDITOR 

Because  of  the  way  that  the  simulator  was  implemented,  the  entire  program  must 
be  recompiled  when  any  modification  is  made  to  a  circuit.  This  is  not  unusual  in 
contemporary  CAD  tools.  However,  it  might  be  possible  to  make  small  changes  to  the 
circuit  without  total  recompilation. 

In  this  thesis  an  EDITOR  program  is  designed,  to  allow  the  user  to  make  small 
modifications  in  a  circuit  without  recompilation.  With  the  EDITOR,  the  user  will  be 
allowed  to  make  the  following  modifications  in  the  circuit: 

1.  REPLACE  -  to  replace  a  gate  or  an  input  to  a  gate  by  another. 

2.  INSERT  *  to  insert  a  gate  in  the  circuit. 

3.  DELETE  -  to  delete  a  gate  from  the  circuit. 

4.  ALTDEL  -  to  modify  a  delay  of  one  of  the  gates  of  the  circuit. 

5.  ADDPRI  -  to  allow  the  insertion  of  the  printout  of  a  variable  in  the  output. 

6.  DELPRI  -  to  delete  the  printout  of  a  variable  in  the  output  of  the  circuit. 

7.  ALTINI  -  to  allow  the  modification  of  an  initialization  value  of  one  of  the 
variables. 

8.  INSOUT  -  to  insert  an  output  in  the  circuit. 

9.  DELOUT  -  to  delete  an  output  from  the  circuit. 

10.  ALTGATE  -  to  allow  the  alteration  of  the  delays  of  all  the  gates  gates  of  the 
type  desired. 

11.  INSINP  -  to  insert  an  input  in  the  circuit. 

12.  INSINPG  -  to  insert  an  input  and  a  gate  in  the  circuit. 

13.  DELINP  -  to  delete  an  input  from  the  circuit. 

14.  DELINPG  -  to  delete  an  input  and  a  gate  from  the  circuit. 

The  first  step  in  the  design  of  the  EDITOR  was  to  understand  the  data  structures 
that  are  generated  by  the  original  simulator.  These  structures  will  be  described  in  the 
next  chapter. 


II.  ORIGINAL  DATA  STRUCTURES 


A.  AN  OVERVIEW 

The  original  multilevel  simulator  program  creates  four  data  structures  to  allow 
the  simulation  of  any  circuit.  Those  structures  are  two  tables,  one  file  and  records.  The 
tables,  called  SYMT  and  DESCT,  are  built  by  the  compiler  and  contain  all  the 
information  about  each  gate  of  the  circuit.  The  file,  called  SIMDATA  file,  contains  all 
the  interconnections  between  the  gates  of  the  circuit  to  allow  the  timing-wheel  to  build 
the  descriptor's  connections  for  the  simulation. 

The  Figure  2.1  presents  a  circuit  that  has  almost  all  variations  that  are  possible 
with  the  VOHL  syntax,  such  as  delays,  initialization  values,  technology,  and  fanload 
that  are  different  from  the  standard  gates.  All  the  tables  and  files  that  are  presented  as 
examples  in  this  chapter  are  based  in  this  circuit. 

B.  THE  SYMT  TABLE 

In  the  original  compiler  program  the  SYMT  table,  that  can  be  seen  in  Table  1,  is 
a  table  that  contains  four  kinds  of  information: 

1.  name  of  the  variable 

2.  the  descriptor  number  that  corresponds  to  this  variable 

3.  the  type  of  gate  that  generates  the  variable,  that  will  be  the  number  in  the 
PRIMITIV.DAT  that  corresponds  to  this  gate  (0  if  the  variable  is  an  input  to 
the  circuit) 

4.  fanload  of  the  variable,  that  is  the  number  of  gates  that  are  connected  to  the 
output  of  the  gate  that  generates  the  variable 

This  table  is  initiated  by  the  compiler  when  the  declaration  part  of  the  VOHL 
description  of  the  circuit  is  read.  The  variable  names  are  placed  in  the  first  column  of 
the  table  in  the  order  that  the  INPUT,  OUTPUT  and  INTERNAL  parts  of  the 
description  are  read,  giving  a  descriptor  number  for  each  variable  when  this  variable  is 
inserted  into  the  table.  The  other  two  columns,  primitive  and  fanload,  are  written  when 
the  compiler  reads  the  description  of  the  circuit.  As  we  can  see,  the  order  in  which  the 
variables  appear  in  this  table  is  the  order  in  which  they  appear  in  the  declaration  part 
of  the  VOHL  description  and  not  in  the  order  that  they  are  described  in  the  circuit. 
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MODULE  :  EXCKT; 

INPUTS  s  A,  Al,  B; 

OUTPUTS  s  ASS ; 

TYPES  :  NANDTHRE  s  NANDT1  ; 

EXOR  i  EXOR1  ; 

NOR  «  NOR1  ; 

HAND  s  NANDI  ; 

INTERNALS  :  A2,  A3,  A4,  A5,  A6,  A7,  A8,  A9,  AlO,  All,  A12, 

^  A13 ,  A14,  A1S ,  A16 ,  A17,  A18,  A19,  A100; 

AS  *  INVERT  (A4) ; 

A100  =  OR  (Al,  B); 

A85  »  AND  (A,  A19); 

USING  (NOEXP , EXOR1 )  i  A2  a  EXOR  (A,  A100); 

USING  (NOEXP, NOR1)  s  A10  =  NOR  (AS,  A8) ; 

USING  (NOEXP, NANDI)  s  A4  a  HAND  (B,  A3); 

A19  *  ORTHREE  (A17,  A18,  A14); 

A7,  A8,  A9  =  SRBLOCX  (A,  A6 ,  A4); 

USING  < NOEXP, NANDT1)  :  A3  =  NANDTHR  (A100,  Al ,  A2); 

Ao  =  ANDTHRE  (A4,  A2 ,  A100); 

A17  a  ANDFOUR  (A12,  AlO,  A6 ,  B); 

All  »  ORFOUR  (AlO,  A7,  A2 ,  B); 

A13  *  NAT^DFOU  (A100,  A,  A13,  AS);  i 

^  A12,  A13,  A14 ,  A15,  A16  a  RETDBLO  (A3,  A5,  A100,  A8,  All,  A6) J 

DEFINE  *  AND i  RISEDEL(0 ,0)*2,  FALLDEL(0,0)«4, 

RISEDEL ( 1 , 0 ) =2 ,  FALLDEL( 1 , 0 )=3 ; 

NOR1 i  FALLDEL(0,0)=3  ; 

EXOR1  j  RISEDEL (1,0)«3,  FALLDEL(0,0)*2; 

NANDT1  *  RISEDELL( 2 , 0 )®2 ,  FALLDEL( 1 , 0)=3 ; 

ANDFOUR  «  FANOUT  a  10  ; 

ORTHREE  s  OVERLOAD  *  2; 

NANDI s  RISEDELAY(0 ,0)*3 ,  FALLDELAY ( 0 , 0 ) =2 , 

RISEDELAY(1 ,0)=4; 

INITIALIZE  :  A85  —  1,  A3*  0,  AlO  a  l  . 

! PRINTOUT  :  A,  Al,  B,  A85,  A5; 

I  END ; 


Figure  2. 1  The  demonstration  circuit 


C.  THE  DESCT  TABLE 

The  DESCT  table  is  a  table  that  contains  two  types  of  information.  The  first 
type  is  the  name  of  the  gate,  and  the  second  type  is  the  position  that  is  occupied  by 
this  gate  in  .the  SYMT  table.  If  we  think  in  terms  of  the  circuit  presented  in  the  Figure 
2.1,  the  DESCT  table  for  this  example  is  the  table  presented  in  the  Table  2* 

This  table  is  built  when  the  compiler  reads  the  description  of  the  circuit.  When 
the  compiler  reads  the  name  of  the  variable,  it  verifies  the  position  of  this  variable  in 


variable 


A 

A1 

B 

A85 

A2 

A3 

A4 

A5 

A6 

A7 

A8 

A9 

AlO 

All 

A12 

A13 

A14 

A15 

A16 

A17 

A18 

A19 

A100 


TABLE  2 

THE  DESCT  TABLE 


gate 

position 

INVERT 

7 

OR 

22 

AND 

3 

EXOR 

4 

NOR 

12 

NAND 

6 

ORTHREE 

21 

SRBLOCK 

9 

SRBLOCK 

10 

SRBLOCK 

11 

NANDTHR 

5 

ANDTHRE 

8 

ANDFOUR 

19 

ORFOUR 

13 

NANDFOU 

20 

RETDBLO 

14 

RETDBLO 

15 

RETDBLO 

16 

RETDBLO 

17 

RETDBLO 

18 

the  SYMT  table  and  puts  the  corresponding  number  in  the  second  column  of  the  table. 
When,  in  the  next  step,  it  reads  the  gate  whose  output  will  generate  that  variable,  it 
puts  the  name  of  the  gate  in  the  first  column  of  the  table.  As  we  can  see,  this  table  will 
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have  its  elements  in  the  order  that  they  appear  in  the  description  of  the  circuit  and  not 
in  the  order  that  they  are  declared. 

D.  THE  DESCRIPTOR  RECORD 

The  descriptor  record  is  the  data  structure  built  by  the  timing-wheel  simulator, 
following  the  instructions  given  by  the  SIM  DATA  file. 

The  structure  of  the  descriptor,  that  can  be  seen  in  Figure  2.2,  is  formed  by  15 

fields. 


Figure  2.2  The  descriptor  record 


The  first  field,  the  'POINTER  TO  FUNCTION’,  points  to  the  primitive  that  is 
represented  by  this  descriptor.  This  field  is  written  when  the  simulator  reads  a 
descriptor  in  the  SIMDATA  file  and  recognizes  the  primitive.  The  next  two  fields  are 
the  fields  'INPUT  I  VALUE'  and'INPUT  2  VALUE',  that  will  contain  the  values  of 
the  inputs  for  this  descriptor.  The  record  has  also  two  fields  called  "INPUT  1 
POINTER'  and  'INPUT  2  POINTER'.  These  two  fields  are  also  written  when  the 
SIMDATA  file  is  read,  and  they  will  connect  the  inputs  to  the  descriptor  to  the 


descriptor  itself.  The  two  fields  that  will  receive  the  values  of  the  inputs  for  the 
descriptor  will  be  written  during  the  simulation,  every  time  that  their  values  are 
computed. 

The  descriptor  also  has  four  fields  for  delays,  two  for  rise  delays  and  two  for  fall 
delays,  with  the  values  of  the  delays  from  each  input  to  the  output.  These  fields  are 
written  during  the  reading  of  the  SIMDATA  file  or,  by  the  default  delay  of  the 
primitive  (if  no  modification  of  delays  is  presented)  or,  by  the  modified  delays  to  the 
gate  that  were  defined  in  the  VOHL  circuit  definition. 

The  next  two  fields  that  will  be  described  are  the  fields  that  correspond  to  the 
output.  Two  fields  will  describe  the  output  of  the  circuit.  The  first  one  is  "PRESENT 
OUTPUT"  and  in  this  field  we  will  have  the  value  of  the  output  as  a  function  of  the 
inputs,  function  and  delays.  The  other  is  the  "HEADER  POINTER"  field,  and  this 
field  is  a  pointer  to  the  descriptor  that  uses  this  output  as  one  of  its  input. 

The  "MODE"  field  of  the  descriptor  will  be  filled  during  the  reading  of  the 
SIMDATA  file,  and  its  value  will  depend  of  the  technology  that  is  being  used,  the  fan 
load  for  this  descriptor,  the  fanout  of  the  gate,  etc. 

As  we  can  see,  each  descriptor  has  place  for  two  inputs  (input  1  pointer  and 
input  2  pointer)  and  one  output  (header  pointer).  If  we  want  to  describe  a  gate  with 
more  than  two  inputs  and/or  one  output  one  descriptor  is  not  sufficient.  In  this  case 
we  will  need  more  of  these  descriptors,  one  for  each  additional  2  inputs  and/or  1 
output.  These  new  descriptors,  called  "extension  descriptors",  have  the  same  fields  that 
the  original  descriptor  and  are  connected  to  it  by  the  "EXTENSION  POINTER"  field, 
which  is  a  pointer  that  points  to  the  next  descriptor  in  the  chain,  in  a  multidescriptor 
case.  The  "PARENT"  field,  which  contains  the  descriptor  number  of  the  starting 
descriptor  of  this  representation,  is  also  used  in  this  case. 

Another  important  case  for  this  descriptor  is  the  gate  that  has  more  than  one 
output,  i.e.,  the  multi-output  gates.  As  we  can  see,  each  descriptor  record  has  room 
for  4  delays,  two  from  each  input  to  the  output,  one  for  the  value  of  the  rise  delay  and 
one  for  the  value  of  the  fall  delay.  If  the  gate  that  is  being  described  has  more  than  one 
output  we  will  need  four  more  spaces  for  the  insertion  of  the  delay  values  from  the 
inputs  that  are  being  presented  in  this  record  to  each  one  of  the  new  outputs.  In  this 
case  the  system  creates  one  "DELAY  MATRIX"  extension,  with  the  structure  shown 
in  the  Figure  2.3,  for  each  new  output  of  the  circuit.  To  connect  the  original  structure 
to  these  new  extensions,  the  "DELAY  MATRIX  POINTER"  field  is  used.  This  field 


will  have  a  pointer  that  will  point  to  any  additional  delay  matrix  extensions  in  the 
chain. 


i am 

ERECT 

< : 

Rise 

delav 

MM 

ERECT 

TTHT^- 1 

icm 

MllA'M 

iPHEMEEMI 

Figure  2.3  The  delay  matrix  extension 

The  Figure  2.4  presents  the  modified  descriptor  structure  for  a  multidescriptor 
j  case  for  a  gate  with  N  outputs  and  2N  inputs. 

A  complete  presentation  of  the  descriptor  records  and  their  interconnections  can 
be  seen  in  Mahmood(  [Ref.  7] ). 

i  E.  THE  SIMDATA  FILE 

The  compiler  program  creates  a  SIMDATA  file  for  each  circuit  that  we  want  to 
implement.  The  size  and  the  code  that  appears  in  this  file  will  depend  of  the  size  and 
|  the  specifications  of  the  circuit  that  we  want  to  simulate.  Figure  2.5a  and  Figure  2.5b 

{  represent  the  SIMDATA  file  for  the  circuit  that  was  presented  in  the  Figure  2.1r 

The  SIMDATA  file  is  composed  of  5  parts  that  contain  all  the  information 
necessary  for  the  simulation.  To  create  this  file  the  compiler  program  generates  various 
sets  of  numbers,  each  set  having  a  specified  meaning.  The  parts  that  compose  the 
i  SIMDATA  file  are: 

1.  a  part  that  contains  all  the  information  about  the  description  of  the  circuit,  in 
terms  of  what  are  the  descriptors  that  appear  in  the  circuit  and  how  they  are 
connected.  This  pan  is  called  the  DESCRIPTOR  PART  of  the  file. 

!  2.  a  pan  that  contains  all  the  default  delays  for  each  gate  that  is  pan  of  the 

I  circuit.  This  part  is  called  DEFAULT  DELAY  PART. 

3.  a  pan  that  contains  all  the  gates  that  have  their  delays  modified  by  instructions 

Eof  the  VOHL  program.  This  pan  is  called  MODIFIED  DELAY  PART. 

4.  a  part  that  contains  all  of  the  initial  values  of  variables  as  determined  in  the 
VOHL  program.  This  pan  is  called  INITIALIZATION  PART. 
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Figure  2.4  A  modified  descriptor  structure 

5.  a  part  that  contains  all  the  variables  that  will  be  printed  as  output  of  the 
simulation.  This  part  is  called  PRINTOUT  PART. 

As  said  before,  all  the  parts  are  represented  by  sets  of  numbers.  Some  of  these 
numbers  really  contain  information  about  the  gates  or  inputs  that  are  being  described 
and  the  other  numbers  in  the  set  are  used  to  inform  the  simulator  about  the  next 
number  that  will  appear  in  the  file.  These  numbers  were  called  "separators'. 


33 


I 


I 


1 

'X 

**•< 


I 


33  0  0  1  0 
33  2  0  1  2 
33  7  5  2  6 
33  22  2  2  1 
2  2  3  2  1  2 
33  3  1  2  0 
2  21  3  21  1 
33  4  6  2  0 
2  22  3  22  1 
33  12  4  2  7 
2  10  3  10  1 
33  6  3  2  2 
2  5  3  5  1  5 
33  21  13  2 
2  20  3  20  1 

1  21  15  23 

2  16  3  16  1 

1  9  15  10  1 
33  9  9  2  0 

2  8  3  8  1  8 
2  6  3  6  1  6 
33  5  8  2  22 
2  13  111 

1  5  15  24  1 

2  4  3  4  1  4 
33  8  7  2  6 
2  4  3  4  1  4 

1  8  15  25  1 

2  22  3  22  1 
33  19  11  2 
2  12  3  12  1 

1  19  15  26 

2  8  3  8  1  8 
2  2  3  2  1  2 
33  13  14  2 
2  9  3  9  1  9 

1  13  15  27 

2  4  3  4  1  4 
2  2  3  2  1  2 
33  20  12  2 
2  0  3  0  1  0 

1  20  15  28 

2  15  3  15  1 
2  10  3  10  1 
1  14  15  15 

1  16  15  17 
33  14  10  2 

2  7  3  7  1  7 
2  22  3  22  1 
2  10  3  10  1 
2  13  3  13  1 
2  8  3  8  1  8 
4  7  5  2  1  5 
4  3  5  2  1  5 
4  12  5  2  1 
4  21  5  2  1 
4  9  5  2  2  5 
15  0  1  16  1 
14  2  16  2  2 
4  5  5  2  1  5 
4  8  5  2  1  5 
4  19  5  2  1 


0  65  1021  33  10110  114  1121 
0  66  1  2  2  1 

36168716  11  0179017  12  0 
3  1  1  1  8  22  1  1  11  0  1  22  9  0  1  22  12  0 
8  22  1  2  11  1  1  22  9  1  1  22  12  1 
30108310  11  0139013  12  0 

21  8  3  1  21  11  1  1  3  9  1  1  3  12  1 
30108410  11  0149014  12  0 

22  841  22  11  1149114  12  1 
37178  12  17  11  01  12  901  12  12  0 
10  8  12  1  10  11  1  1  12  9  1  1  12  12  1 

32128612  11  0169016  12  0 
8615  11  1169116  12  1 
19  3  19  1  19  8  21  1  19  11  0  1  21  9  0  1  21  12  0 
20  8  21  1  20  11  1  1  21  9  1  1  21  12  1 
1  23  16  21 

16  8  23  1  16  11  0  1  23  9  0  1  23  12  0 

10  16  9  1  10  15  11  1  11  16  9 

30108910  11  0199019  12  0 
8918  11  1199119  12  1 
8  10  1  6  11  0  1  10  9  0  1  10  12  0 

3  22  1  22  8  5  1  22  11  0  1  5  9  0  1  5  12  0 

8511  11  1159115  12  1 

24  16  5 

8  24  1  4  11  0  1  24  9  0  1  24  12  0 
36168816  11  0189018  12  0 
8814  11  1189118  12  1 

25  16  8 

22  8  25  1  22  11  0  1  25  9  0  1  25  12  0 
14  3  14  1  14  8  19  1  14  11  0  1  19  9  0  1  19  12  0 
12  8  19  1  12  11  1  1  19  9  1  1  19  12  1 
1  26  16  19 

8  26  1  8  11  0  1  26  9  0  1  26  12  0 

6  26  1  2  11  1  1  26  9  1  1  26  12  1 

12  3  12  1  12  8  13  1  12  11  0  1  13  9  0  1  13  12  0 

8  13  1  9  11  1  1  13  9  1  1  13  12  1 

1  27  16  13 

8  27  1  4  11  0  1  27  9  0  1  27  12  0 

8  27  1  2  11  1  1  27  9  1  1  27  12  1 

22  3  22  1  22  8  20  1  22  11  0  1  20  9  0  1  20  12  0 

8  20  1  0  11  1  1  20  9  1  1  20  12  1 


1  28  16  20 

15  8  28  1  15  11  0  1  28  9  0  1  28  12  0 


10  8  28  1  10  11  1  1  28  9  1  1  28  12  1 
1  15  16  14  1  15  15  16  1  16  16  14 


1  17  16  14  1  17  15  18  1  18  16  14 
535158  14  15  11  01  14  901  14  12  0 
8  14  1  7  11  1  1  14  9  1  1  14  12  1 

22  8  15  1  22  11  0  1  15  9  0  1  15  12  0 

10  8  15  1  10  11  1  1  15  9  1  1  15  12  1 

13  6  16  1  13  11  0  1  16  9  0  1  16  12  0 

8  16  1  8  11  1  1  16  9  1  1  16  12  1 

314  22  521531541551 
3154155144521531541551 
53154155146521531541551 
5315415516  21  521531 
3  2  14  0  16  0  2  17  0  2  18  0  2  19  0  2 
2  17  12  18  12  19  1269522532 
17  2  2  15  2  3  16  3  2  17  3  2 
3154155165521531 
3154155168521531 
5315415516  19  521531541551 


Figure  2.5a  The  SIMDATA  file  for  the  demonstration  circuit 
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4  13  5215315415516  13  521531541551 
4  20  5215315415516  20  521531541551 
4  14  522532  14  4  16  42  17  42 
15  4  5  16  5  2  17  5  2  18  5  2  19  5  2  15  5  6  16  6  2  17  6  2 
15  67  16  72  17  726  14  522532542552 

14  8  16  8  2  17  8  2  18  8  2  19  8  2  15  8  9  16  9 

2  17  9  2  13  9  2  19  9  2  15  9  10  16  10  2  17  10  2  18  10 
2  19  10  2  15  10  11  16  11  2  17  11  2  18  11  2  19  11  2 
7  522532542552  14  12  16  12 

2  17  12  2  18  12  2  19  12  2 

15  12  13  16  13  2  17  13  2  15  13  14  16  14  2  17  14  2 

15  14  15  16  15  2  17  15  2  18  15 

2  19  15  2435224353443542 

435534  12  533445434  4  53265522 

45553465234653246544 

20  21  23  24  25  26  3  27  1  20  22  23  24  25  26  5  27  0 

20  22  23  24  25  26  12  27  1 

23  0  0  A  29  0  0  23  1  0  A  23  1  1  1  29  1  1 

23  2  0  B  29  2  2  28  3  0  A  23  3  1  8  23  3  2  5  29  3  3  28  4  0  A 

28  4  1  5  29  4  7  30  31  5  32  50 


Figure  2.5b  The  SIMDATA  file  for  the  demonstration  circuit(continued) 

S 

|  This  file  is  built  when  the  compiler  is  reading  the  VOHL  description  of  the 

circuit.  The  DESCRIPTOR  PART  is  formed  when  the  compiler  reads  the  structure  of 
the  circuit,  with  the  inputs  to  the  system  in  the  front  of  the  file  and  the  other 
descriptors  being  written  when  the  description  of  the  circuit  is  read.  After  that  the 
DEFAULT  DELAY  PART  is  built,  using  the  information  that  was  stored  in  the 
DESCT  table.  When  the  system  finishes  the  construction  of  this  part  it  reads  the 
DEFINE  part  of  the  VOHL  description  and  builds  the  MODIFIED  DELAY  PART  of 
the  SIMDATA  file.  The  INITIALIZATION  and  the  PRINTOUT  parts  of  the  file  are 
built  when  the  compiler  reads  the  INITIAL  and  PRINT  parts  of  the  VOHL 
description.  As  we  can  see,  the  SIMDATA  file  is  built  in  the  same  order  that  the 
{  circuit  is  read  by  the  compiler. 

For  a  better  understanding  of  the  SIMDATA  file,  the  various  parts  from  which  it 
is  formed  will  be  discussed  in  the  next  sub-sections. 

1.  The  DESCRIPTOR  part 

This  part  of  SIMDATA  has  the  function  of  presenting  all  the  inputs  and  gates 
that  make  up  the  circuit  that  we  want  to  simulate.  Like  all  the  other  parts  this  part  is 
composed  of  sets  of  numbers,  each  one  with  its  own  meaning.  The  size  of  each  set 
depends  of  the  type  of  gate  or  input  that  is  being  described.  We  have  3  different 
possibilities,  that  will  be  showed  below. 
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a.  INPUT  descriptor 

The  descriptor  that  describes  an  input  has  the  following  format: 

33  x  y  1  x  0  2  1  x  2  1 

As  we  can  see  it  is  composed  of  11  numbers,  with  the  following 
significance: 

1.  33  -  beginning  of  a  descriptor 

2.  x  -  descriptor  number,  that  corresponds  to  the  number  that  appears  in  the 
second  column  of  the  SYMT  table  in  the  row  that  has  the  input  that  is  being 
described. 


3.  y  -  primitive  (same  of  the  PRIMITIV.DAT  file),  that  in  the  input  case  is  0. 

4.  z  -  number  that  represents  the  variable  name.  This  number  is  found  by  the 
transformation  of  the  variable  name  to  its  value  in  ASCII  code,  modified  by  a 
decimal  constant  of  1 1  if  the  value  is  the  same  of  another  variable  (for  example, 
if  we  have  two  variables  called  A2  and  Bl,  the  ASCII  representation  of  both 
will  be  115.  If  A2  appears  first  in  the  list  of  variables  it  will  have  the  value  115, 
while  Bl  will  have  the  value  126). 

5.  1,  0,  1,  2,  1  -  separators 

In  the  SIMDATA  file,  each  input  will  have  such  a  descriptor.  In  the 
example  shown  in  Figure  1  we  have  3  of  these  descriptors. 
b.  Single  output  gate  descriptor 


This  is  the  kind  of  descriptor  that  describes  almost  all  the  primitives  that 
the  system  has  supported  until  now.  For  each  case  we  have  the  following  gates: 


1.  with  one  input 

2.  with  two  inputs 


3.  with  three  inputs 


primitive  5-  INVERT 

primitive  1  -  AND 
primitive  2  •  OR 
primitive  3  -  NAND 
primitive  4  -  NOR 
primitive  6  -  EXOR 

primitive  7  -  ANDTHRE 
primitive  8  -  NANDTHR 
primitive  13  -  ORTH  REE 


4.  with  four  inputs 


primitive  11  -  ANDFOUR 
primitive  12  -  NANDFOU 
primitive  14  -  ORFOUR 


As  shown,  each  descriptor  has  a  place  for  2  inputs  and  1  output.  As  we  are 
describing  gates  that  have  only  one  output,  in  the  iirst  two  cases  shown  above  only 
one  descriptor  record  is  needed  to  entirely  describe  the  gate.  In  the  cases  with  more 
than  2  inputs  we  will  need  another  descriptor  to  put  the  inputs  that  do  not  fit  in  the 
record.  This  new  descriptor  record  is  called  an  "extension  descriptor"  and  it  will  be 
connected  to  the  original  descriptor  and  will  have  the  same  functions  as  the  original 
descriptor.  The  descriptor  will  be  created  in  the  SIM  DATA  file  each  time  we  finish  the 
description  of  the  even  inputs  for  a  gate.  It  will  appear  as  a  set  of  8  numbers  in  the 
following  way: 

1  x  15  y  1  y  16  x 

where: 

1.  x  -  descriptor  number  of  the  original  descriptor 

2.  y  -  descriptor  number  of  the  extension  descriptor 

In  the  general  case  the  single  output  gates  are  described  in  the  following 

way: 

33xy2A3AlA8xlAllwlx9wlxl2w 

2B3BlB8xlBllwlx9wlxl2w 

lxl5klkl6x2C3ClC8klCllwlk9wlkl2w 

2D3DlD8klDllwlk9wlkl2w 

where: 

1.  33  -  beginning  of  a  new  descriptor  record 

2.  x  -  descriptor  number  for  the  output  (original  descriptor) 

3.  y  -  primitive  number(corresponds  to  the  primitive  number  in  the 
PRIMITIV.DAT  file) 

4.  A  -  descriptor  number  of  the  input  1 

5.  B  -  descriptor  number  for  the  input  number  2(if  have) 

6.  C  -  descriptor  number  for  the  input  number  3(if  have) 

7.  D  -  descriptor  number  for  the  input  number  4(if  have) 

8.  w  -  input  number  (0  for  inputs  1,3,...  and  1  for  inputs  2,  4, .  .  .) 

% 

9.  k  -  descriptor  number  for  the  extension  descriptor(if  have) 

It  is  important  to  note  that  in  the  SIMDATA  file  will  appear  only  in  the 
part  of  the  descriptor  that  corresponds  to  the  number  of  inputs  of  the  gate. 


c.  Multiple  output  gate  descriptor 

In  this  case,  if  we  look  at  the  Table  1,  we  can  see  that  this  type  of  gate  has 
n  descriptors  in  the  table,  where  n  is  the  number  of  outputs  of  the  gate.  In  the  single 
output  case  we  saw  that  we  needed  to  add  an  extension  descriptor  when  the  number  of 
inputs  was  greater  than  2.  In  the  multiple  output  case  we  will  need  extension 
descriptors  only  when  the  number  of  inputs  exceed  twice  the  numbers  of  outputs, 
because  we  already  have  descriptors  with  the  additional  input  positions  available  when 
the  others  descriptors  have  no  more  spaces.  In  this  case,  we  can  say  that  the  "primary 
descriptor"  is  the  one  that  appears  first  in  the  Table  1,  with  the  others  being  "secondary 
descriptors".  The  interconnection  of  the  "secondary  descriptors"  with  the  "primary 
descriptors"  is  done  with  the  same  group  of  numbers  that  does  the  interconnections  of 
the  extension  descriptors  with  the  original  descriptor  in  the  single  output  case,  with  the 
difference  that  in  this  case  these  interconnections  appear  before  the  "primary 
descriptor"  ,  while  in  the  single  output  case  they  appear  after  the  original  descriptor. 

If  we  call  a,  b,  c,  .  .  .  ,n  the  descriptors  that  correspond  to  the  outputs  of 
the  gate  and  A,  B,  C,  .  .  .  ,P  the  descriptors  that  correspond  to  the  inputs  of  the  gate, 
the  descriptor  for  this  type  of  gate  in  the  SIM  DATA  file  will  be: 

1  a  15  b  I  b  16  a  1  b  15  c  1  c  16  b  .  .  .  1  m  15  n  1  n  16  m 
33ay2A3AlA8alAIlwla9wlal2w 
2B3BlB8alBllwla9wlal2w 
2C3ClC8blCllwlb9wlbl2w.... 

where: 

1.  a,  b,  c,  .  .  .,  n  -  descriptor  number  for  the  outputs 

2.  A,  B,  C, .  .  .,P  -  descriptor  number  for  the  inputs 

3.  y  -  primitive  number 

4.  w  -  input  number  (0  for  the  odd  inputs,  1  for  the  even  inputs) 

2.  The  DEFAULT  DELAY  part 

This  pan  of  SIM  DATA  has  the  function  of  presenting  all  the  default  delays  of 
the  gates  that  were  used  in  the  description  of  the  circuit.  This  pan  is  also  composed  of 
a  set  of  numbers,  each  number  having  one  value  of  delay  from  a  specific  input  of  the 
element  to  a  specific  output  of  the  same  element.  Also  in  this  pan  depending  of  the 
number  of  outputs  of  the  gate  that  is  being  described,  we  have  two  different 
possibilities. 


a.  single  output  gates 

In  the  general  case,  the  default  delay  part  of  single  output  gates  is  written 
in  the  following  way: 

4A52B53C54D55E 
6A52F53G....  where 

1.  A  -  descriptor  number  (same  of  the  SYMT  table) 

2.  B  -  rise  delay  from  input  0  to  output  0 

3.  C  -  fall  delay  from  input  0  to  output  0 

4.  D  -  rise  delay  from  input  1  to  output  0 

5.  E  -  fall  delay  from  input  1  to  output  0 

6.  F  -  rise  delay  from  input  2  to  output  0 

7.  G  -  fall  delay  from  input  2  to  output  0 

As  in  the  descriptor  part,  the  only  numbers  that  appear  in  this  case  are 
those  that  correspond  to  the  number  of  inputs  to  the  gate.  The  part  that  starts  with  the 
number  6  will  appear  only  if  the  gate  has  more  than  two  inputs. 

b.  multiple  output  gates 

In  this  case,  the  set  of  numbers  that  describe  the  multi  output  case  are 
more  complicated  than  the  single  output  case.  This  is  due  to  the  fact  that  the  multi¬ 
output  case  does  not  follow  a  rigid  formation  rule,  but  rather  depends  on  the  number 
of  inputs  and  outputs  that  the  gate  has.  Basically,  those  descriptors  are  composed  of 
the  following  set  of  numbers: 

4A52B53C54D55E 

14  F  16  FG  17  F  H  18  F  I  19  F  J 

15  K  L  16  L  M  17  L  N  18  L  O  19  L  P 

15  L  Q  16  Q  R  17  Q  S  18  Q  T  19  Q  U  .  .  .  . 

6A52a53b54c55d.... 

752j53k5415  5  m.... 

We  can  divide  this  set  of  numbers  into  various  subsets  with  specific 
functions.  The  first  set  of  numbers  starts  in  the  line  that  begins  with  the  number  4  and 
goes  until  the  end  of  the  line  preceding  the  line  that  starts  with  the  number  6.  In  this 
set  of  numbers,  the  delays  from  inputs  0  and  1  to  all  of  the  outputs  of  the  gate  are 
described  to  continue  the  interpretation. 

1.  A  -  descriptor  number 

2.  B  -  rise  delay  from  input  0  to  the  output  0 

3.  C  -  fall  delay  from  input  0  to  output  0 


4.  D  -  rise  delay  from  input  1  to  the  output  0 

5.  E  -  fall  delay  from  input  1  to  the  output  0 

The  line  that  starts  with  the  number  14  describes  the  delays  from  those 
inputs  to  the  second  output  of  the  circuit.  The  significance  of  the  numbers  in  that  line 


1.  F  -  position  occupied  in  the  matrix  delay  by  the  corresponding  output.  The 
matrix  delay  is  the  descriptor  created  to  describe  the  extra  delays  needed  to 
totally  describe  the  circuit.  It  starts  with  an  index  0  and  increases  by  1  each 
time  that  a  matrix  is  inserted  to  describe  extra  delays. 

2.  G  -  rise  delay  from  input  0  to  the  output  1 

3.  H  -  fall  delay  from  input  0  to  output  1 

4.  I  -  rise  delay  from  input  1  to  the  output  1 

5.  J  -  fall  delay  from  input  1  to  the  output  1 

The  line  that  starts  with  the  number  15  describes  the  values  of  the  delays 
from  those  inputs  to  the  next  output  of  the  gate.  The  number  of  lines  that  begin  with 
15  is  the  number  of  outputs  of  the  gate  minus  two,  that  were  already  described  in  the 
previous  lines.  The  meaning  of  the  values  in  those  lines  are: 


1.  K  -  position  occupied  by  the  previous  line  in  the  matrix  delay 

2.  L  -  position  occupied  by  this  line  in  the  matrix  delay 

3.  M  -  rise  delay  from  input  0  to  the  output  n 

4.  N  -  fall  delay  from  input  0  to  output  n 

5.  O  -  rise  delay  from  input  1  to  the  output  n 

6.  P  -  fall  delay  from  input  1  to  the  output  n 

The  next  subset  starts  in  the  line  that  begins  with  the  number  6  and  finishes 
at  the  end  of  the  line  preceding  the  line  that  starts  with  the  number  7.  This  subset  of 
numbers  describes  the  delays  from  inputs  2  and  3  to  all  the  outputs  of  the  circuit.  The 
meaning  of  the  numbers  are  the  same  as  the  first  subset,  except  that  in  this  subset  the 
inputs  will  be  2  and  3  instead  0  and  1 . 

The  next  subset  begins  in  the  line  that  starts  with  the  number  7  and  finishes 
at  the  end  of  the  line  preceding  the  line  that  starts  with  the  next  7.  Each  subset 
describes  the  delays  from  two  more  inputs  to  all  the  outputs  of  the  gate,  and  we  will 
have  as  many  subsets  as  needed  to  describe  all  the  other  inputs  of  the  circuit.  The 
meaning  of  the  numbers  in  those  subsets  are  the  same  as  the  previous  subsets,  with  the 
difference  that  in  these  subsets  the  descriptor  number  does  not  appear. 


msrnmi 


One  important  point  in  this  case  is  that  the  values  of  the  delays  will  appear 
in  the  description  only  if  there  exists  a  possible  connection  between  the  input  and  the 
output,  i.e.,  if,  for  example  there  is  no  connection  between  the  input  1  and  the  output 
0,  the  numbers  5  4  D  5  5  E  will  not  appear  in  the  first  line  of  the  description. 

3.  the  MODIFIED  DELAY  part 

This  part  of  the  SIM  DATA  file  is  built  only  when  the  user  defines  gates  with 
delays  different  of  the  default  delays  already  defined.  The  syntax  of  this  part  will 
depend  on  the  gate  and  the  output  and  input  that  will  have  non  standard  delay  values. 
For  example,  for  the  gate  with  output  A2  in  Figure  2.1,  the  syntax  will  be  the 
following: 

4454344532 

This  will  happen  because  A2  is  the  descriptor  number  4  in  the  SYMT  table 
and  because  the  modified  delays  are  the  rise  delay  from  the  input  1  to  output  0  and  the 
fall  delay  from  the  input  0  to  the  output  0. 

For  the  case  of  A3  in  the  same  figure  this  part  of  the  file  will  be: 

6552245543 

The  6  appears  in  front  of  the  descriptor  number,  which  in  this  case  is  5, 
because  the  delay  that  is  being  modified  is  the  rise  delay  from  the  input  2  to  the  input 
0.  The  other  alteration  is  the  fall  delay  from  the  input  l  to  the  input  0.  This  part  of  the 
SIMDATA  is  built  in  the  order  that  the  gates  appear  in  the  control  part  of  the 
description  of  the  circuit. 

4.  the  INITIALIZATION  part 

This  part  of  the  file  is  built  when  the  compiler  reads  the  variable  names  that 
appear  in  the  INITIAL  part  of  the  description.  The  code  in  this  part  appears  in  the 
following  way: 

20  21  23  24  25  26  a  27  b 
20  22  23  24  25  26  c  27  d 
20  22  23  24  25  26  e  27  f.  .  .  . 

where: 

1.  a,  c,  e, . . .  -  descriptor  number 

2.  b,  d,  f,  .  .  .  -  initial  values  of  the  descriptors  a,  c,  e,  .  .  .  respectively 

The  second  line  of  the  code  will  be  repeated  until  all  the  values  that  are  to  be 
initialized  had  being  coded. 


5.  the  PRINTOUT  part 

This  part  of  the  SIMDATA  file  is  built  when  the  compiler  reads  the 
PRINTOUT  part  of  the  VOHL  description.  This  part  of  the  file  is  composed  of  the 
code  shown  below,  repeated  as  many  times  as  the  number  of  variables  that  we  want  to 
print. 

28  a  0  A  28  a  1  B  28  a  2  C  ...  29  a  x 

28  (a+ 1)  0  I  28  (a+  1)  1  J  . . .  29  (a+  1)  y _ 

where: 

1.  a,  (a  + 1),  ...  -  order  that  the  variable  will  appear  in  the  printout  (is  the  same 
order  that  is  read  by  the  compiler  in  the  description) 

2.  A,  B,  C,  .  .  .  -  characters  that  form  the  name  of  the  variable  in  the  position 
(order)  a. 

3.  I,  J,  ...  -  characters  that  form  the  name  of  the  variable  that  appear  in  position 
(order)  (a  + 1) 

4.  x,  y, ...  -  descriptor  number  of  each  variable. 

After  the  compiler  has  finished  writing  the  code  for  all  the  variables  that  will 
be  printed  out,  the  following  code  is  written  in  the  file: 

30  31  a  32  50 

where  a  is  the  number  of  variables  that  will  be  printed. 

For  example,  in  the  circuit  shown  in  Figure  2.1  the  code  for  this  part  will  be: 

28  0  0  A  29  0  0 

28  1  0  A  28  1  1  1  29  1  1 

28  2  0  B  29  2  2 

28  3  0  A  28  3  1  8  28  3  2  5  29  3  3 
28  4  0  A  28  4  1  5  29  4  7 


30  31  5  32  50 

This  part  also  is  responsible  for  finishing  the  SIMDATA  file. 
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III.  APPROACHES  AND  MODIFICATIONS  FOR  THE  EDITOR 
A.  POSSIBLE  APPROACHES 

The  multilevel  simulator  uses  basically  two  data  structures  to  allow  the 
simulation  of  any  circuit.  The  first  one  is  the  SIMDATA  file,  that  is  created  by  the 
compiler  program,  and  the  other  is  a  set  of  records,  called  descriptor  records,  that  is 
written  by  the  timing  wheel  simulator.  As  discussed  in  the  Chapter  2,  the  SIMDATA 
file  is  created  while  the  system  is  compiling  the  circuit  that  we  want  to  simulate  and  the 
descriptor  records  and  their  interconnections  are  done  when  the  system  is  doing  the 
simulation  of  the  circuit. 


Figure  3.1  The  example  circuit 


For  example,  suppose  that  we  want  to  simulate  the  circuit  that  was  presented  in 
the  Figure  1.7  and  is  repeated  in  the  Figure  3.1  .  During  the  compilation  of  this  circuit 
the  compiler  creates  the  file  that  is  presented  in  Figure  3.2  .  With  the  data  presented  in 
this  file,  the  simulator  program  creates  the  necessary  descriptors  and  makes  their 
interconnections,  presented  in  Figure  3.3  . 

The  goal  of  the  EDITOR  program  is  to  allow  the  possibility  of  modification  and 
simulation  of  a  circuit,  without  the  necessity  of  a  new  compilation  of  the  entire  circuit. 


Figure  3.2  The  SIMDATA  file  for  the  example  circuit 


Suppose,  for  example,  that  we  want  to  change  the  gate  E  of  the  Figure  1.7  (output  X3 
in  the  Figure  3.1)  by  an  AND  gate.  The  new  circuit  is  presented  in  the  Figure  3.4  .  The 
SIMDATA  file  for  this  circuit  is  presented  in  Figure  3.5  and  the  descriptor  records  for 
the  modified  circuit  is  presented  in  Figure  3.6  .  As  we  can  see  both  structures  are 
different  from  the  original  structures  for  the  example  circuit. 

Suppose  that  instead  of  replacing  one  of  the  gates  of  the  circuit  we  want  to  insert 
an  AND  gate  between  the  gates  E  and  F  of  the  original  circuit  (X3  and  X4  in  the 
Figure  3.1).  The  new  circuit  is  presented  in  Figure  3.7,  with  the  SIMDATA  file  and  the 
descriptor  records  for  this  circuit  presented  in  Figures  3.8  and  3.9,  respectively.  As  we 
can  see,  the  structures  are  different  from  the  structures  presented  in  the  previous 
examples. 

Any  modification  that  we  want  to  introduce  in  the  circuit  will  change  both 
structures  used  for  the  simulation,  the  SIMDATA  file  and  the  descriptor  records.  Since 
the  EDITOR  program  will  skip  the  compilation  part  of  the  program  it  will  need  to 
change  one  of  those  structures.  In  this  way,  we  have  two  possible  approaches  for  the 
editor  program,  the  first  being  the  modification  of  the  SIMDATA  file  and  the  second 
being  the  modification  of  the  descriptor  records  and  their  interconnections. 

If  we  choose  the  second  approach' some  important  points  to  be  considered  are: 


Pointer 


MODULE  «  COMPILATION_DEMO  ; 
INPUTS  :  A.  B  ; 

OUTPUTS  i  6  ? 

TYPES  «  INTERNALS  ,  XI,  X2,  X3  , 

XI  ■  AND  (A,  B); 

X3  «  AND  (XI,  B); 

X2  »  INVERT  (XI); 

Q  *  OR  (X2,  X3); 

DEFINE  *; 

INITIALIZE  *  Xl-0,  X2-0,  X3-0  ; 
PRINTOUT »  A,  B,  Q, 

END; 


Figure  3.4  The  example  circuit(modif.  1) 


33  00100  65  1021  33  10  110  66  1  1  21 
33  312030108310  11  01  3  9  013  12  0 
2131118311  11  1139113  12  1 
33  512333138513  11  01  5  9  015  12  0 
2131118511  11  1159115  12  1 
33  452333138413  11  0149014  12  0 
33  222434148214  11  0129012  12  0 
2535158215  11  1129112  12  1 

>  1  4  5  5  2  1  5 


2535158215  11 
43521531541! 


5  4  1 


4452153142521531541551 
20  21  23  24  25  26  3  27  0  20  22  23  24  25  26  4  27  0 

20  22  23  24  25  26  5  27  0  28  0  0  A  29  0  0 

28  1  0  B  29  1  1  28  2  0  Q  29  2  2  30  31  3  32  50 


Figure  3.5  The  SIMDATA  file  for  the  example  circuit  (modif.  1) 

we  will  have  several  types  of  possible  modifications  of  the  circuit,  like 
replacement,  insertion,  or  deletion  of  gates,  inputs,  and  outputs,  or  modification 
of  delays,  change  of  initialization  of  variables,  and  change  of  printout  of  the 
circuit.  To  do  that,  the  system  must  not  only  change  the  interconnections  of  the 


a 


Figure  3.7  The  example  circuit(modif.  2) 


Figure  3.8  The  SIMDATA  file  for  the  example  circuit  (modif.  2) 

descriptors,  but  in  some  cases  also  create  new  descriptors,  delete  existing 
descriptors,  insert  new  delay  matrices,  and  so  on.  As  we  can  see  it  must  be  a 
very  complicated  program  to  allow  all  those  possibilities. 


Input  2 


2.  The  timing  wheel  simulator  reads  the  SIMDATA  file  when  it  starts  to  do  a 
simulation.  If  we  decide  to  change  the  descriptor  records  we  will  not  have  the 
opportunity  to  save  the  modifications  that  were  done  because  the  SIMDATA  is 
not  modified.  The  next  time  that  we  try  to  do  the  simulation  of  the  circuit  the 
simulator  will  read  the  SIMDATA  without  the  modifications.  As  a  result,  any 
modification  that  was  made  to  the  circuit  will  be  a  temporary  modification.  If 
we  want  to  do  a  definitive  modification  we  must  compile  the  circuit  again, 
resulting  in  an  editor  that  does  not  have  a  practical  utilization. 

If  we  decide  to  make  the  modification  of  the  SIMDATA  file,  all  the  problems 
that  were  discussed  above  are  avoided,  because  changing  the  SIMDATA  file  can  be 
made  a  definitive  change,  depending  of  the  needs  of  the  user.  Also  in  this  case  the 
system  does  not  need  to  know  if  it  will  need  to  insert  or  delete  a  record,  or  change 
interconnections,  because  it  is  working  with  pieces  of  the  file  that  are  always  treated  in 
the  same  way,  with  small  variations  depending  on  what  is  being  executed. 

Following  the  considerations  presented  above  we  see  that  the  best  approach  to 
the  EDITOR  program  is  the  modification  of  the  SIMDATA  file  and  this  will  be  the 
way  that  the  editor  will  be  designed. 

B.  MODIFICATIONS 

The  original  compiler  and  simulator  programs  were  not  prepared  to  support  an 
EDITOR  program,  because  they  were  not  designed  with  this  option.  The  only  data 
structure  that  is  saved  is  the  SIMDATA  file,  that  contains  all  the  information  about 
the  circuit,  but  this  structure  cannot  support  the  editor  by  itself.  Because  of  that,  some 
modifications  needed  to  be  made  in  the  COMPILER  and  TIMING  WHEEL  programs 
to  allow  a  posterior  editing  of  the  circuit. 

The  modifications  that  were  done  in  those  programs  are  the  following: 

1.  division  of  the  SIMDATA  in  5  different  files. 

2.  modification  of  the  SVMT  table; 

3.  creation  of  the  DEL  table; 

4.  creation  of  the  INP  table 

The  modified  CADD  program  and  its  precompilation  routine  (PRECOMP)  can 
be  seen  in  Appendix  A  and  Appendix  B.  The  modified  timing  wheel  program  can  be 
seen  in  the  Appendix  C. 

The  next  sub-sections  will  present  in  detail  all  the  modifications  that  were  made 
to  the  system.  In  each  of  the  cases  an  example  of  the  modification  is  presented,  and  all 
the  examples  will  have  as  origin  the  circuit  presented  in  the  Figure  2. 1 . 


1.  The  SIMDATA  file 

The  different  parts  of  the  SIMDATA  file  are  completely  independent,  i.e., 
each  part  of  the  file  does  not  depend  on  others.  When  the  modifications  are  made  in 
the  system  only  in  a  few  cases,  like  the  REPLACE  case,  will  the  editor  need  to  work 
with  the  entire  file.  In  all  the  other  cases  the  modifications  will  be  done  in  specific  parts 
of  the  file,  and  it  will  not  be  necessary  to  read  the  entire  SIMDATA. 

Following  this  statement  we  can  see  that  it  is  possible  to  save  time  during  the 
execution  of  the  EDITOR  program  if  those  parts  are  already  separated.  The  compiler 
program  was  modified  in  a  way  to  store  the  previous  SIMDATA  file  in  5  different  files. 
This  modification  in  the  program  increased  the  compilation  time  in  about  5%,  but  it 
saves  much  more  time  in  the  EDITOR  program,  as  will  be  seen  in  the  next  chapters. 

The  5  files  that  are  being  used  now  are: 

1.  DESCRIPTOR  file  -  This  file,  that  can  be  seen  in  Figure  3.10,  is  the  copy  of 
the  descriptor  part  of  the  SIMDATA  file.  All  the  variables  that  appear  in  the 
description  of  the  circuit  are  described  in  this  file,  with  their  position  in  the  files 
as  a  function  of  the  position  where  the  variable  was  described.  Its  file  extension 
will  be  DCF,  i.e.,  if  the  circuit  that  is  being  simulated  is  the  ALU,  this  file  will 
have  the  name  ALU. DCF. 

2.  DEFAULT  DELA  r  part  -  This  file,  that  can  be  seen  in  Figure  3.11,  is  the  copy 
of  the  default  delay  part  of  the  SIMDATA.  As  in  the  descriptor  file,  all  the 
variables  that  are  part  of  the  circuit  are  presented  in  this  file,  with  their 
positions  in  the  file  being  a  function  of  the  position  in  which  the  variable 
appears  in  the  description  of  the  circuit.  The  extension  that  is  used  for  this  file 
is  DDF. 

3.  MODIFIED  DELAY  file  -  This  file,  that  can  be  seen  in  Figure  3.12,  is  the  copy 
of  the  modified  delay  part  of  the  SIMDATA.  The  only  variables  that  appear  in 
this  file,  as  shown  in  Chapter  2,  are  those  that,  in  the  description  of  the  circuit, 
received  a  delay  with  values  different  from  the  default  values.  The  extension  for 
this  file  is  MDF. 

4.  INITIALIZATION  file  -  This  file,  that  can  be  seen  in  Figure  3.13,  is  the  copy 
of  the  initialization  part  of  the  SIMDATA.  Also  in  this  case  the  only  variables 
that  appear  in  this  file  are  those  that  were  initialized  in  the  INITIAL  part  of 
the  description  of  the  circuit.  The  extension  for  this  file  is  INT. 

5.  PRINTOUT  file  -  This  file,  that  can  be  seen  in  Figure  3.14,  is  the  copy  of  the 
printout  part  of  the  SIMDATA.  The  only  variables  that  appear  in  this  file  were 
requested  for  printout  in  the  description  of  the  circuit.  The  extension  for  this 
file  is  PTT. 


33  00100  65  1021  33  10110  114  1121 
33  20120  66  1221 

33  752636168716  11  0179017  12  0 

33  22  2  2  1  3  1  1  1  8  22  1  1  11  0  1  22  9  0  1  22  12  0 

2232128  22  12  11  11  22  911  22  12  1 

33  312030108310  11  0139013  12  0 

2  21  3  21  1  21  8  3  1  21  11  1  1  3  9  1  1  3  12  1 

33  462030108410  11  0149014  12  0 

2  22  3  22  1  22  8  4  1  22  11  1  1  4  9  1  1  4  12  1 

33  12  4  2  7  3  7  1  7  8  12  1  7  11  0  1  12  9  0  1  12  12  0 

2  10  3  10  1  10  8  12  1  10  11  1  1  12  9  1  1  12  12  1 

33  632232128612  11  0169016  12  0 

2535158615  11  1169116  12  1 

33  21  13  2  19  3  19  1  19  8  21  1  19  11  0  1  21  9  0  1  21  12  0 

2  20  3  20  1  20  8  21  1  20  11  1  1  21  9  1  1  21  12  1 

1  21  15  23  1  23  16  21 

2  16  3  16  1  16  8  23  1  16  11  0  1  23  9  0  1  23  12  0 

1  9  15  10  1  10  16  9  1  10  15  11  1  11  16  9 

33  992030108910  11  0199019  12  0 
2838188918  11  1199119  12  1 
263616810161101  10  901  10  12  0 
33  5  8  2  22  3  22  1  22  8  5  1  22  11  0  1  5  9  0  1  5  12  0 
2131118511  11  1159115  12  1 
1  5  15  24  1  24  16  5 

2434148  24  14  11  01  24  901  24  12  0 
33  872636168816  11  0189018  12  0 
2434148814  11  1189118  12  1 

1  8  15  25  1  25  16  8 

2  22  3  22  1  22  8  25  1  22  11  0  1  25  9  0  1  25  12  0 

33  19  11  2  14  3  14  1  14  8  19  1  14  11  0  1  19  9  0  1  19  12  0 
2  12  3  12  1  12  8  19  1  12  11  1  1  19  9  1  1  19  12  1 

1  19  15  26  1  26  16  19 

2838188  26  18  11  01  26  901  26  12  0 

2  2  3  2  1  2  8  26  1  2  11  1  1  26  9  1  1  26  12  1 

33  13  14  2  12  3  12  1  12  8  13  1  12  11  0  1  13  9  0  1  13  12  0 

2939198  13  19  11  11  13  911  13  12  1 

1  13  15  27  1  27  16  13 

2434148  27  14  11  01  27  901  27  12  0 

2  2  3  2  1  2  8  27  1  2  11  1  1  27  9  1  1  27  12  1 

33  20  12  2  22  3  22  1  22  8  20  1  22  11  0  1  20  9  0  1  20  12  0 

2030108  20  10  11  11  20  911  20  12  1 

1  20  15  28  1  28  16  20 

2  15  3  15  1  15  8  28  1  15  11  0  1  28  9  0  1  28  12  0 

2  10  3  10  1  10  8  28  1  10  11  1  1  28  9  1  1  28  12  1 

1  14  15  15  1  15  16  14  1  15  15  16  1  16  16  14 

1  16  15  17  1  17  16  14  1  17  15  18  1  18  16  14 

33  14  10  2  5  3  5  1  5  8  14  1  5  11  0  1  14  9  0  1  14  12  0 

2  7  3  7  1  7  8  14  1  7  11  1  1  14  9  1  1  14  12  1 

2  22  3  22  1  22  8  15  1  22  11  0  1  15  9  0  1  15  12  0 

2  10  3  10  1  10  8  15  1  10  11  1  1  15  9  1  1  15  12  1 

2  13  3  13  1  13  8  16  1  13  11  0  1  16  9  0  1  16  12  0 

2838188  16  18  11  11  16  911  16  12  1 


Figure  3.10  The  DESCRIPTOR  file 
2.  The  SYMT  table 

As  was  shown  in  Chapter  2  (Table  1)  the  original  SYMT  table  is  built  in  the 
order  that  the  variables  are  declared  in  the  VOHL  syntax  of  the  circuit,  while  the 


4  7  5  2  1  5  3 
4  3  5  2  1  5  3 
4  12  5  2  1  5  3 
4  21  5  2  1  5  3 
4  9  5  2  2  5  3 
15  0  1  16  1  2 

14  2  16  2  2  17 
4  5  5  2  1  5  3 
4  8  5  2  1  5  3 
4  19  5  2  1  5  3 
4  13  5  2  1  5  3 
4  20  5  2  1  5  3 
4  14  5  2  2  5  3 

15  4  5  16  5  2 
15  6  7  16  7  2 

14  8  16  8  2  17 

15  9  10  16  10 

2  15  10  11  16 
7  5  2  2  5  3  2 

15  12  13  16  13 
15  14  15  16  15 


14  22  521531541551 
154155144521531541551 
154155146521531541551 
15415516  21  521531 
2  14  0  16  0  2  17  0  2  18  0  2  19  0  2 
17  12  18  12  19  1269522532 
2  2  15  2  3  16  3  2  17  3  2 
154155165521531 
154155168521531 
15415516  19  521531541551 
15415516  13  521531541551 
15415516  20  521531541551 
2  14  4  16  4  2  17  4  2 

17  5  2  18  5  2  19  5  2  15  5  6  16  6  2  17  6  2 
17  726  14  522532542552 
8  2  18  8  2  19  8  2  15  8  9  16  9  2  17  9  2  18  9  2  19  9  2 
2  17  10  2  18  10  2  19  10 
11  2  17  11  2  18  11  2  19  11  2 

5  4  2  5  5  2  14  12  16  12  2  17  12  2  18  12  2  19  12  2 

2  17  13  2  IS  13  14  16  14  2  17  14  2 

2  17  15  2  18  15  2  19  15  2 


Figure  3. 1 1  The  DEFAULT  DELAY  file 


435224353443542435534  12  53344543 
445326552245553465234653246544 


Figure  3.12  The  MODIFIED  DELAY  file 

descriptor  part  and  the  default  delay  part  of  the  SIM  DATA  file  are  built  in  the  order 
that  the  circuit  is  described. 

If  the  way  to  edit  the  circuit  is  by  the  modification  of  the  SIMDATA,  we  need 
to  know  what  position  in  the  file  is  being  described  by  the  variable  that  we  want  to 
edit.  In  the  original  compiler  we  do  not  have  this  possibility  because,  after  finishing  the 
compilation,  the  system  loses  track  of  the  position  of  the  variables. 

To  find  the  correct  position  to  be  modified  in  the  different  files  the  system 
needs  to  know  all  the  information  about  the  space  in  each  file  that  is  occupied  by  each 
variable.  To  allow  the  presentation  of  this  information  the  SYMT  table  was  modified 
and  presents  the  structure  that  can  be  seen  in  Table  3 . 


%  A-  *. 

V*  /*  j'  V 

VkV 


V  V 


20  21  23  24  25  26  3  27  1  20  22  23  24  25  26  5  27  0 
20  22  23  24  25  26  12  27  1 


Figure  3.13  The  INITIALIZATION  file 


Figure  3.14  The  PRINTOUT  file 


The  first  four  columns  in  the  table  are  the  same  as  the  original  table,  except 
by  the  variables  presented  in  different  order.  The  order  of  the  presentation  of  the 
variables  was  changed  to  allow  them  to  be  presented  in  the  same  order  that  they 
appear  in  the  DESCRIPTOR  and  DEFAULT  DELAY  files. 

The  building  of  the  table  starts  when  the  compiler  reads  the  declarations  of 
the  VOHL  syntax  of  the  circuit.  The  variables  are  placed  in  the  table  and  receive  a 
descriptor  number  just  as  in  the  original  compiler.  When  the  compiler  starts  to  read  the 
description  of  the  circuit  it  begins  to  swap  the  position  of  the  variables  so  that  their 
new  positions  in  the  table  are  the  same  as  they  appear  in  the  files.  For  example,  with 
this  change  we  know  that  if  we  want  to  find  the  position  of  the  variable  A4  it  will  be 
the  ninth  descriptor  in  the  descriptor  file  and  the  sixth  descriptor  in  the  default  delay 
file  because  inputs  do  not  appear  in  the  default  delay  file. 

The  column  despos  (descriptor  positions)  presents  the  number  of  spaces  that 
are  occupied  by  each  variable  (descriptor)  in  the  descriptor  file.  By  this  column,  that  is 
completed  when  the  compiler  writes  the  code  for  that  descriptor  in  the  file,  we  can  see 
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that,  for  example,  the  variable  A3,  that  is  an  output  of  a  three  input  NAND  gate,  has 
a  code  in  the  descriptor  file  that  needs  71  spaces  to  be  written.  Also,  as  will  be 
explained  later,  when  the  Editor  try  to  find  the  descriptor  in  the  file  it  needs  only  to 
sum  the  values  in  the  column  corresponding  to  the  variables  that  appears  in  the  table 
before  the  desired  variable.  For  the  case  of  the  same  variable  we  can  see  that  the 
descriptor  file  has  401  spaces  (11  +  11  +  11  +  23  +  43  +  43  +  43  +  43  +  43  +  71 
+  79)  occupied  before  starts  the  description  of  the  variable. 

An  important  point  in  the  fulfillment  of  this  column  is  the  case  of  the 
multioutput  gates.  If  a  gate  has  n  outputs  it  has  n  variables  that  will  appear  in  the 
SYMT  table.  However,  when  the  compiler  makes  the  code  corresponding  to  this  gate 
all  the  connections  between  the  descriptors  will  be  written  at  the  same  time  and, 
consequently,  the  system  will  only  put  a  value  in  this  column  for  the  variable  that 
corresponds  to  the  first  described  output  for  this  gate.  A  value  of  0  will  be  put  in  all 
the  other  variables  that  correspond  to  outputs  for  the  same  gate.  This  can  be  seen  in 
the  Table  3  for  the  variables  A7,  A8  and  A9  that  are  outputs  of  a  SR  gate.  The  only 
variable  that  has  a  value  in  the  table  is  A7,  with  the  number  79  in  the  column.  The 
other  two  variables  have  the  number  0  in  this  column.  This  says  that  this  gate  needs  79 
spaces  to  completely  describe  its  connections  in  the  descriptor  file. 

The  next  column,  delpos  (delay  positions),  presents  how  many  spaces  are 
occupied  by  each  descriptor  in  the  DEFAULT  DELAY  file.  All  the  observations  that 
were  made  in  the  previous  paragraphs  for  the  despos  column  with  respect  to  the 
descriptor  file  can  be  applied  for  this  column  with  respect  to  the  default  delay  file. 
Using  this  column  we  see  that  the  variable  A3  needs  22  spaces  to  describe  its  default 
delays  and  that  it  has  162  spaces  (8  +  14  +  14  +  14  +  14  +  14  +  22  +  62) 
occupied  in  the  default  delay  file  before  this  variable  starts  to  be  described.  Also  for  the 
multioutput  gates  the  same  concepts  that  were  used  in  the  previous  column  is  used  in 
this  one. 

The  other  3  columns  will  also  be  used  to  find  the  position  of  the  variables  in 
the  other  files.  The  ini_num  (initialization  position)  column  shows  the  position  where 
the  variable  appears  in  the  initialization  file,  if  it  was  an  initialized  variable.  If  the 
number  in  this  column  is  zero  the  variable  was  not  initialized  and,  consequently,  does 
not  appear  in  the  file.  The  other  numbers  that  appear  in  this  column  show  the  order 
that  the  variable  appears.  In  the  example  shown,  the  order  of  the  variables  in  the 
initialization  part  is:  A85,  A3  and  A 10. 


The  column  pri_num  (printout  position)  presents  the  position  where  the 
variable  appears  in  the  printout  file,  if  a  printout  of  the  variable  was  requested  in  the 
VOHL  description  of  the  circuit.  As  the  size  of  the  printout  code  is  function  of  the 
number  of  characters  in  the  variable  name,  the  column  pri_val  (printout  spaces) 
presents  the  number  of  times  that  the  code  of  printout  appears  in  the  printout  file  to 
represent  that  variable.  If  the  number  0  appears  in  the  "printout  position"  column,  the 
variable  is  not  an  output  of  the  system,  i.e.,  no  printout  of  this  variable  was  requested. 
The  other  numbers  present  the  position  of  the  variable  in  the  PTT  file,  with  the 
numbers  of  the  next  column  showing,  in  this  case,  how  many  times  the  code  was 
repeated.  In  the  example,  the  order  of  the  printout  code  will  be:  A  (with  only  1 
appearance  of  the  code),  A1  (with  2  appearances),  B  (1  appearance),  A85  (3 
appearances)  and  A5  (2  appearances). 

3.  The  DEL  table 

The  modified  delay  part  of  the  SIMDATA  file  is  built  when  the  compiler 
reads  the  DEFINE  part  of  the  VOHL  syntax.  The  delays  will  appear  in  the  file  in  the 
same  order  that  they  were  defined.  For  this  reason,  the  EDITOR  program  needs  to 
know  in  what  order  the  delays  will  appear  in  SIMDATA  to  make  the  modifications. 

The  DEL  table,  that  can  be  seen  in  Table  4,  was  created  to  allow  the  system 
to  have  a  record  of  how  the  delays  were  placed  in  the  file. 

The  meaning  of  the  columns  of  this  table  are: 

1.  index  -  an  index  for  the  table 

2.  desc.  -  the  descriptor  number  of  the  variable  that  will  have  its  delay  modified. 

3.  type  -  presents  what  delay  is  being  modified,  if  it  is  the  rise  delay  (code  10)  or 
the  rise  delay  (code  11). 

4.  input  -  input  number  which  is  having  the  delay  modified. 

5.  output  -  output  number  which  is  having  its  delay  modified 

6.  spaces  -  how  many  numbers  will  be  printed  in  the  file  for  this  modification. 

4.  The  INP  table 

The  INP  table,  that  can  be  seen  in  Table  5,  was  created  to  allow  the  system  to 
%  store  the  inputs  to  each  gate  of  the  circuit.  The  actual  system  supports  gates  with  up 
to  10  inputs,  and,  consequently,  the  table  has  space  for  10  inputs.  This  table  was  also 
created  to  allow  updates  to  the  fanload  of  each  gate  when  a  modification  (replace, 
insert,  delete,.  .  .)  is  done  in  the  circuit. 

The  meaning  of  each  column  in  this  table  is: 

1.  name  ■  name  of  the  variable  that  is  being  described. 
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TABLE  4 
THE  DEL  TABLE 


index  desc.  type  input  output  spaces 


2.  nb.  inp.  -  number  of  inputs  of  the  gate 

3.  inp  1  -  variable  that  goes  in  the  input  1 

4.  inp  2  -  variable  that  goes  on  input  2  (if  input  exists). 

5.  inp  3  -  variable  that  goes  in  input  3  (if  input  exists). 

6.  inp  4  -  variable  that  goes  in  input  4  (if  input  exists). 

7.  inp  5  -  variable  that  goes  in  input  5  (if  input  exists) 

8.  inp  6  -  variable  that  goes  in  input  6  (if  input  exists). 

9.  inp  7  -  variable  that  goes  in  input  7  (if  input  exists). 

10.  inp  8  -  variable  that  goes  in  input  8  (if  input  exists). 

11.  inp  9  -  variable  that  goes  in  input  9  (if  input  exists). 

12.  inp  10  -  variable  that  goes  in  input  10  (if  input  exists). 

One  important  point  to  notice  in  this  table  is  that  for  the  multi-output  gates 
case  the  only  variable  that  is  described  is  the  last  output  presented  in  the  description  of 
the  gate. 


TABLE  5 
THE  INP  TABLE 


name 

nb 

inp 

inp 

1 

inp 

2 

inp 

3 

inp 

4 

inp 

5 

inp 

6 

inp 

7 

inp 

8 

inp 

9 

inp 

10 

A5 

D 

A4 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A100 

2 

A1 

B 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A85 

2 

m 

A19 

llllll 

XXX 

XXX 

XXX 

XXX 

XXX 

A2 

2 

m 

A100 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 
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XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A4 

2 

B 

A3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A19 

A18 

A14 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A9 

3 

m 

A6 

A4 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A3 

A1 

A2 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A6 

3 

A4 

A2 

A100 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A17 

D 

A12 

AlO 

A6 

B 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

All 

D 

AlO 

A7 

A2 

B 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A18 

m 

A13 

A8 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

A1 

6 

A3 

A5 

A100 

A8 

XXX 

XXX 

XXX 

XXX 

5.  The  timing-wheel  simulator 

The  original  timing-wheel  simulator  was  designed  to  receive  the  entire 
SIMDATA  file,  read  it,  create  the  descriptors  and  make  their  interconnections.  As  the 
compiler  program  was  modified  to  divide  the  SIMDATA  into  5  different  files,  the 
simulator  program  also  needed  to  be  modified  to  rebuild  the  SIMDATA  file  before  the 
simulator  starts  to  read  the  file.  The  new  timing-wheel  simulator  program  can  be  seen 
in  Appendix  C. 


IV.  DESIGN,  IMPLEMENTATION  AND  EXECUTION 


A.  THE  DESIGN 

As  stated  in  Chapter  1  of  this  thesis,  the  Editor  program  allows  fourteen 
operations  to  be  done  to  any  compiled  circuit.  These  operations  are: 

1.  Replace  a  gate  -  REPLACE; 

2.  Insert  a  gate  -  INSERT; 

3.  Delete  a  gate  -  DELETE; 

4.  Modify  delay  -  ALTDEL; 

5.  Add  a  printout  -  ADDPRI; 

6.  Delete  a  printout  -  DELPRI; 

7.  Change  an  initialization  value  *  ALTINI; 

8.  Insert  an  output  -  INSOUT; 

9.  Delete  an  output  -  DELOUT; 

10.  Change  the  delays  in  a  type  of  gate  -  ALTGATE; 

1  i.  Insert  input  -  INSINP; 

12.  Insert  input  and  gate  -  INSINPG; 

13.  Delete  an  input  -  DELINP; 

14.  Delete  an  input  and  a  gate  -  DELINPG; 

The  first  step  in  the  design  process  is  to  define  what  modifications  are  needed, 
how  these  modifications  will  be  performed  and  the  limitations  imposed  by  each 
modification.  Also  in  this  first  part  it  is  necessary  to  consider  the  limitations  imposed 
on  the  system  by  the  editor. 

The  next  subsections  show  the  design  decisions  that  drove  the  implementation  of 
the  EDITOR  program. 

1.  Replace  gate 

This  command  will  allow  the  substitution  of  one  or  more  gates  by  another 
gate,  with  the  restriction  that  the  new  gate  must  have  the  same  number  of  outputs  as 
the  replaced  gate(s).  The  system  was  designed  with  this  feature  because  we  supposed 
that  when  the  user  wants  to  replace  a  gate  he/ she  does  not  want  to  modify  the  number 
of  internal  variables  of  the  circuit  and,  because  of  that,  the  number  of  the  outputs  of 
the  new  and  the  old  gates  have  to  be  the  same,  because  the  outputs  of  the  gates  are 
really  the  internal  variables  of  the  system. 


In  this  part  when  a  gate  replaces  another  gate  in  the  system,  the  replacement 
process  maintains  the  default  characteristics,  i.e.,  the  gate  will  have  unmodified  delays 
or  initialization  values,  unless  the  user  makes  changes  by  using  another  editor 
command.  Because  of  this  the  system  needs  to  search  all  the  files  that  compose  the 
description  of  the  system,  eliminating  all  the  references  to  the  descriptor  number  of  the 
old  gate  in  the  descriptor  file,  default  delay  file,  modified  delay  file,  and  initialization 
file,  and  inserting  the  description  of  the  new  gate  only  in  the  descriptor  file  and  in  the 
default  delay  value.  Another  important  consideration  in  this  case  is  that  as  the  variable 
name  was  not  changed  with  the  replacement  of  the  gate  and  its  descriptor  number  was 
not  changed  either. 

2.  Insert  and  delete  gates 

In  this  case  the  use  of  the  insert  or  delete  commands  will  change  the  number 
of  internal  variables  of  the  circuit,  by  deleting  or  adding  variables  to  the  circuit.  Also  in 
this  case,  because  the  system  has  a  different  implementation,  some  of  the  remaining 
gates  need  to  be  changed.  The  important  point  about  this  change  is  that  the  only  thing 
that  will  change  in  the  gate  is  one  or  more  of  its  inputs  for  the  gates  that  are  affected 
by  the  change  of  variables.  When  the  system  replaces  this  gate  the  only  file  that  will  be 
modified  is  the  descriptor  file,  to  allow  the  modification  of  the  inputs,  because  all  the 
other  characteristics  of  the  gate  in  the  circuit  remain  unchanged. 

3.  Add  or  delete  inputs 

The  system  has  two  possibilities  for  the  add  and  delete  commands:  one  for  the 
case  where  only  the  input  itself  is  added  to  (deleted  from)  the  circuit,  and  other  for  the 
case  where  together  with  the  input  another  gate  needs  to  be  added  to  (deleted  from) 
the  circuit. 

In  the  first  case  the  system  needs  to  add  (delete)  an  input  descriptor  to  (from) 
the  descriptor  file  and  after  that  make  a  modification  in  the  circuit  in  the  same  way 
that  was  done  in  the  insert/delete  case  (only  the  inputs  of  the  gate  changes).  In  the 
second  case,  if  we  are  inserting  an  input  and  a  gate,  the  system  needs  to  add  the  input 
descriptor,  a  new  gate  in  the  descriptor  file  and  in  the  default  delay  value,  and  to 
modify  the  inputs  of  the  gates  affected  by  the  changes.  If  we  are  deleting  an  input  and 
a  gate  the  system  needs  to  delete  the  input  descriptor,  delete  the  gate  descriptor  in  all 
the  files  where  it  appears  and  modify  the  inputs  of  the  gates  affected  by  the  deletion. 


4.  Add  or  delete  outputs 

The  only  modification  that  will  be  done  in  the  circuit  is  the  insertion  (deletion) 
of  the  descriptor  that  describes  the  gate  that  is  being  inserted  (deleted),  because  this 
insertion  (deletion)  will  have  no  effect  on  the  other  gates  of  the  circuit. 

5.  Initial  values 

The  original  system  allows  3  values  for  the  initialization  of  variables:  0,  1  or  2 
(undefined).  The  EDITOR  program  will  allow  a  fourth  value  for  initialization  that  will 
be  the  number  3.  When  the  program  finds  a  request  to  initialize  a  variable  with  a  3  the 
program  understands  that  this  variable  was  already  initialized  and  that  no  further 
action  is  wanted.  In  this  case  the  part  of  the  initialization  file  that  describes  the  initial 
value  of  this  variable  will  be  deleted. 

6.  Modify  delays  cr  gate 

Both  commands  have  basically  the  same  action,  with  the  difference  that  the 
modify  gate  (ALTGATE)  is  more  general  than  the  modify  delay  (ALTDEL),  because 
the  modify  delay  command  will  change  a  specific  delay  of  a  specific  gate,  while  the 
modify  gate  command  will  change  a  specific  delay  for  all  the  gates  of  the  referenced 
gate  type  that  appears  in  the  circuit.  Any  positive  integer  number  could  be  used  as  a 
delay  value  in  this  case,  but  if  the  delay  value  was  defined  as  0  it  will  be  understood  by 
the  program  that  this  specific  delay  was  already  modified  and  the  user  wants  it  to 
return  to  its  default  value. 

7.  The  continue  command 

This  command  was  designed  to  allow  several  different  modifications  to  be 
done  in  only  one  run  of  the  EDITOR  program.  When  the  program  finds  this  command 
(represented  by  the  symbol  #  )  it  understands  that  the  modification  that  it  is  doing  is 
finished  and  that  it  will  find  another  keyword  to  begin  another  modification.  For 
example,  with  this  command  we  can  make  a  REPLACE,  followed  by  an  ALTDEL, 
followed  by  an  ALTINI,  etc. 

8.  Syntax  of  the  commands 

One  of  the  important  points  in  the  design  of  the  system  was  the  definition  of 
the  syntax  of  each  command.  This  is  an  important  point  because  the  EDITOR 
program  needs  to  know  the  syntax  for  each  command  before  it  is  written.  The  next 
section  will  present  the  syntax  for  all  the  commands  for  the  EDITOR  program. 


9.  Limitations  for  the  system 

Due  to  the  way  that  the  CADD  program  was  designed,  the  EDITOR  program 
is  limited  because  it  will  not  allow  changes  in  user  defined  circuits  as  a  block.  When  the 
system  is  compiled  the  first  time,  the  user  libraries  (the  sub-modules  of  the  original 
circuit)  are  expanded  to  a  lower  level,  until  the  expansion  reaches  the  point  where  all  of 
the  description  of  the  circuit  is  done  by  using  system  defined  primitives.  As  we  can  see, 
in  this  case  the  system  does  not  keep  track  of  the  user  defined  libraries.  If  the  user 
decides  to  make  changes  in  the  circuit  those  changes  must  be  based  on  the  system 
defined  primitives. 

B.  THE  SYNTAX  OF  THE  COMMANDS 

The  syntax  for  all  the  commands  that  are  allowed  in  the  EDITOR  program  is 
defined  in  this  section.  The  description  of  each  command  will  be  done  using  the  BNF 
notation. 

1.  The  REPLACE  command 

REPLACE ; 

{ 

<CKT> 

} 

END; 

where: 

<CKT>  <vari>  *  <prim>  (  <var2>  );  <CKT>  | 
<varl>  *  <prim>  (  <var2>  ); 

<  varl  >  *  output  of  the  gate  that  is  being  replaced 

<  prim>  ::  =*  a  primitive  existing  in  the  library  of  the  system 

<var2>  <var>  ,  <var2>  | 

<  var>  (the  number  of  repetitions  will  be  a 
function  of  the  number  of  inputs 
to  the  gate) 

<var>  one  of  the  variables  defined  in  the  circuit. 

2.  The  INSERT  command 

INSERT  :  <var3>  ; 

{ 


<  CKT1  > 


where: 


<  var3  >::**<  var4  >  ,  <  var3  >  | 

<  var4  > 

<  var4>  ::  =  name  of  the  variable  to  be  inserted 

<CKT1>  ::*  <var4>  *  <prim>  (  <var2>  );  <CKT1>  | 
<var4>  -  <prim>  (  <var2>  ); 

<  prim>  ::»  a  primitive  existing  in  the  library  of  the  system 
<var2>  ::*»  <var>  ,  <var2>  | 

<  var>  (the  number  of  repetitions  will  be  a 

function  of  the  number  of  inputs 
to  the  gate) 

<  var>  one  of  the  variables  defined  in  the  circuit. 

<CKT>  ::=■  the  same  definition  as  the  REPLACE  case. 

3.  The  DELETE  command 

DELETE  :  <  var5  >  ; 

{ 

<CKT> 

} 

END; 

where: 

<var5>  ::*  <var6>  ,  <var5>  | 

<  var6  > 

<var6>  ::«  name  of  the  variable  to  be  deleted 
<CKT>  ::■  the  same  definition  as  the  REPLACE  case. 

4.  The  ALTDEL  command 

ALTDEL  ; 

{ 

<  CKT2> 

} 

END; 


where: 


<  CKT2>  :: 


<  var>  :  <OPTl>  ( <  INP>  ,  <  OUT>  ) 
<  VAL>  ;  < CKT2>  | 


<  var>  :  <0PT1>  ( <  INP>  ,  <  OUT>  )  = 

<  VAL> 

<  var>  one  of  the  variables  defined  in  the  circuit. 

<  OPT1  >  <  RISEDEL>  |  <  FALLDEL> 

<  INP>  ::=  gate  input  number  corresponding  to  the  path  to  be 

modified 

<  OUT  >  :: »  gate  output  number  corresponding  to  the  path  to 

be  modified 

<  VAL>  value  of  the  new  delay  of  the  path 

5.  The  ADDPRI  command 

ADDPRI  :  <  var7>  ; 

} 

END; 

where: 

<var7>  ::*=  <var8>  ,  <var7>  | 

<  var8  > 

<var8>  i:31  variable  name  of  the  variable  to  be  printed 

6.  The  DELPRI  command 

DELPRI  :  <var7>  ; 

} 

END; 

where: 

<var7>  ::=  <var8>  ,  <var7>  | 

<  var8  > 

<  var8  >  ::  ■  variable  name  of  the  variable  to  be  deleted  from 

the  printout 

7.  The  ALTINI  command 

ALT1NI  ; 

{ 

<  CKT3  > 

} 

END; 

where: 

<CKT3>  ::■  <var9>  =  <value>  ;  <CKT3>  | 

<var9>  =  <  value  >  ; 


<var9>  ::■  name  of  the  variable  to  have  the  initial  value 
changed 

<value>  <0|1|2|3> 

8.  The  INSOUT  command 

INSOUT:  <var3>  ; 

{ 

<  CKTl  > 

} 

END; 

where: 

<var3>  ::■  <var4>  ,  <var3>  | 

<  var4  > 

<  var4>  ::■»  name  of  the  output  to  be  inserted 

<CKT1>  <var4>  -  <prim>  (  <var2>  );  <CKT1>  | 
<var4>  *  <prim>  (  <var2>  ); 

<  prim>  ::■  a  primitiv  existent  in  the  library  of  the  system 
<var2>  <var>  ,  <var2>  | 

<  var>  (the  number  of  repetitions  will  be  a 

function  of  the  number  of  inputs 
to  the  gate) 

<var>  ::»  one  of  the  variables  defined  in  the  circuit. 

9.  The  DELOUT  command 

DELOUT  :  <var5>  ; 


END; 


where: 


<var5>  ::=  <var6>  ,  <var5>  | 

<  var6> 

<  var6>  name  of  the  variable  to  be  deleted 

10.  The  ALTGATE  command 

ALTGATE  ; 

{ 

<  CKT5  > 

} 

END; 
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where: 


<CKT5>  ::=  <prim>  :  <0PT1>  (  <  INP>  ,  <  OUT>  )  = 

<  VAL >  ;  <  CKT5>  | 

<  prim >  :  <OPTl>  ( <  INP>  ,  <  OUT>  )  = 

<  VAL> 

<  prim>  a  primitive  existent  in  the  library  of  the  system 

<  OPTl  >  ::=  <  RISEDEL>  |  <  FALLDEL> 

<  INP>  ::  =  gate  input  number  corresponding  to  the  path  to  be 

modified 

<OUT>  ::=  gate  output  number  corresponding  to  the  path  to 
be  modified 

<VAL>  ::=  value  of  the  new  delay  of  the  path 

11.  The  INSINP  command 

INSINP:  <  varlO>  ; 

{ 

<  CKT  > 

} 

END; 

where: 

<varlO>  ::  =  <varll>  ,  <varlO>  | 

<  varll > 

<  varl  1  >  ::  *  name  of  the  input  to  be  inserted 
<CKT>  ::=  the  same  definition  as  the  REPLACE  case. 

12.  The  INSINPG  command 

INSINPG  :  <varlO>  ;  <var3>  ; 

{ 

<  CKT1  > 

<  CKT  > 

} 

END; 

where: 

<varlO>  ::=  <varll>  ,  <varlO>  | 

<  varl 1 > 

<  varl  1  >  ::  =  name  of  the  input  to  be  inserted 
<varj>  ::=  <var4>  ,  <var3>  ! 

67 


<  var4>  ::  =  name  of  the  variable  to  be  inserted 

<CKT1>  ::=  <var4>  =  <prim>  (  <var2>  );  <CKT1>  | 
<var4>  =  <prim>  (  <var2>  ); 

<prim>  ::=  a  primitive  existent  in  the  library  of  the  system 
<var2>  ::=  <var>  ,  <var2>  | 

<  var>  (the  number  of  repetitions  will  be  a 

function  of  the  number  of  inputs 
to  the  gate) 

<  var>  one  of  the  variables  defined  in  the  circuit. 

<  CKT>  ::=  the  same  definition  as  the  REPLACE  case. 

13.  The  DELINP  command 

DELINP  :  <varl2>  ; 

{ 

<  CKT> 

} 

END; 

where: 

<varl2>  <varl3>  ,  <varI2>  | 

<varl3> 

<  varl3>  ::  =  name  of  the  input  to  be  deleted 
<CKT>  ::=  the  same  definition  as  the  REPLACE  case. 

14.  The  DELINPG  command 

DELINPG  :  <varl2>  ;  <var5>  ; 

{ 

<  CKT> 

} 

END; 

where: 

<varl2>  ::=  <varl3>  ,  <varl2>  | 

<varl3> 

<  varl3>  ::=  name  of  the  input  to  be  deleted 
<var5>  ::=  <var6>  ,  <var5>  | 

<  var6  > 

<  var6>  ::=  name  of  the  variable  to  be  deleted 


<CKT>  the  same  definition  of  the  REPLACE  case. 

C.  THE  IMPLEMENTATION 

In  this  section  we  describe  how  the  editor  was  implemented  to  perform  the 
different  modifications  in  the  circuit.  The  implementation  is  presented  in  a  general  form 
for  each  of  the  commands,  but  the  program  that  was  written  to  perform  the  edition 
will  not  be  discussed  here. 

The  programs  that  are  necessary  to  perform  the  edition  of  any  circuit  are 
presented  in  the  Appendices  D  and  E  and  are  sufficiently  commented  to  allow  an 
understanding  of  their  behavior.  The  version  that  is  presented  in  the  appendices  is  the 
version  designed  for  the  IBM-PC/AT.  With  a  few  modifications,  this  version  can  also 
be  used  in  the  VAX  system. 

Appendix  F  presents  the  files  and  programs  that  are  necessary  to  support  the 
compilation  and  edition  of  any  circuit.  Appendix  G  presents  the  meaning  of  each  one 
of  the  files  presented  in  the  other  appendices,  and  also  presents  the  reason  why  those 
files  are  necessary. 

All  the  files  and  programs  presented  in  the  appendices  were  designed  for  the  use 
of  a  IBM-PC  AT  or  a  compatible  computer,  with  a  hard-disk  for  storage  of  the  files 
and  programs  and  the  capability  of  the  using  a  RAM  disk  (virtual  memory)  to 
accelerate  the  program. 

The  next  sub-sections  present  the  implementation  for  each  of  the  commands  in 
the  EDITOR  program. 

1.  The  replace  command 

After  reading  the  replace  command  given  by  the  user,  the  EDITOR  looks  in 
the  SYMT  table  (Table  3)  to  verify  the  position  of  the  variable  being  replaced.  While 
searching  the  table,  the  system  can  determine  the  location  of  the  first  field  of  the 
descriptor  that  corresponds  to  the  gate  being  replaced,  by  adding  the  values  of  the 
DESPOS  column  for  the  variables  that  appears  before  the  variable  that  is  the  output 
for  the  gate  being  replaced.  After  finding  the  correct  place,  the  system,  knowing  the 
number  of  spaces  occupied  by  the  gate  being  replaced,  can  skip  the  number  of  places 
that  describe  this  gate.  In  the  place  that  was  occupied  by  the  old  gate,  the  system  can 
now  introduce  the  description  of  the  new  gate,  and  after  this  insertion  it  can  copy  the 
rest  of  the  descriptor  file. 

The  same  procedure  is  used  to  replace  the  description  of  the  default  delay  of 
the  gate,  with  the  difference  that  the  system  will  work  with  the  default  delay  file  and 
will  look  for  the  DELPOS  column,  instead  of  the  DESPOS  column  of  the  SYMT  table. 


As  discussed  in  the  beginning  of  this  Chapter,  the  replacement  of  a  gate 
implies  that  the  new  gate  needs  to  have  delays  with  their  default  values  and  an 
undefined  initial  value.  To  verify  if  modifications  need  to  be  done  in  the  files  that 
describe  these  parts,  the  system  looks  to  the  DEL  table,  to  verify  if  the  descriptor 
number  of  the  gate  being  replaced  appears  there.  If  the  descriptor  does  not  appear  the 
modified  delay  file  is  not  modified.  However,  if  the  gate  appears  in  this  table  this 
means  that  some  delay  modification  from  default  exists  in  the  old  gate,  and  this  value 
needs  to  be  deleted.  To  delete  this  value  the  system  adds  the  values  that  appear  in  the 
’spaces"  column  of  the  DEL  table,  until  it  reaches  the  gate  being  replaced.  With  this 
value  it  can  fmd,  in  the  modified  delay  file,  in  what  position  this  gate  is  being  described 
and  delete  it  from  the  file.  This  operation  is  repeated  until  all  the  appearances  of  the 
gate  in  the  table  are  deleted. 

To  verify  if  the  gate  was  initialized  in  the  previous  simulation  the  system  looks 
once  more  to  the  SYMT  table  (Table  3)  and  verifies,  for  the  gate  being  replaced,  the 
number  that  appears  in  the  column  init_position.  If  the  number  is  0  the  variable  was 
not  initialized  and  the  initialization  file  does  not  need  to  be  modified.  However,  if  the 
value  is  not  0  the  variable  is  already  initialized  and  needs  to  be  deleted  from  the  file.  As 
each  initialization  description  occupies  9  spaces  in  the  file  (as  presented  in  the  Chapter 
2),  the  system  knows  that  if  the  variable  to  be  deleted  has  a  number  3  in  the  column, 
two  variables  are  described  before  it,  and  consequently  the  file  has  18  numbers  before 
the  description  of  the  variable.  With  this  number,  the  system  can  find  the  beginning  of 
the  descriptor  in  the  file,  delete  the  next  9  numbers  and  copy  the  rest  of  the  file.  The 
only  problem  in  this  case  is  when  the  variable  to  be  deleted  is  the  first  to  be  described 
in  the  file,  because  the  description  of  the  first  variable  is  different  from  the  others.  In 
this  case  the  system  needs  to  delete  the  first  9  numbers  from  the  file  and  change  the 
second  number  of  the  next  descriptor  from  22  to  21,  because  this  descriptor  will  now 
be  the  first  one  in  the  file. 

During  this  process  the  tables  (SYMT,  DEL  and  INI)  are  corrected  to 
represent  the  new  state  of  the  circuit  after  the  replacement  of  the  gate. 

2.  The  insert  command 

The  best  way  to  put  a  new  descriptor  in  the  circuit  is  to  place  this  descriptor 
at  the  end  of  the  corresponding  files.  To  allow  this  procedure  the  system,  after 
receiving  the  command  to  insert  a  gate,  looks  to  the  SYMT  table  and,  by  using  the 
values  of  the  despos  and  delpos  columns  in  the  SYMT  table,  computes  how  many 


numbers  are  placed  in  the  descriptor  file  and  in  the  default  delay  file.  With  those 
values  the  system  can  fmd  the  place  in  the  files  where  the  new  descriptor  will  be  placed 
and  insert  it  in  the  correct  place.  The  other  files  that  describe  the  circuit  are  not 
modified  because  during  the  design  it  was  assumed  that  when  a  gate  is  inserted  in  the 
circuit  it  is  inserted  with  its  default  parameters  and  that  no  initial  value  is  assigned  to 
this  gate.  During  the  execution  of  this  part  the  SYMT  table,  the  DESC  table  and  the 
INI  table  are  modified  to  represent  the  new  configuration  of  the  system. 

With  the  insertion  of  a  new  gate  in  the  circuit  some  modifications  need  to  be 
made  in  the  circuit  to  allow  the  new  gate  to  appear  as  input  to  some  of  the  other  gates. 
As  was  presented  in  the  beginning  of  this  Chapter,  it  was  decided  that  during  the 
design  of  the  system,  this  modification  would  consist  only  of  modifications  in  the 
inputs  of  some  gates.  Because  of  that,  the  only  file  that  will  be  modified  in  this  part  is 
the  descriptor  file,  and  this  modification  will  be  done  in  the  same  way  that  the 
modification  of  this  file  was  done  in  the  replace  case.  In  this  part,  the  INI  table  is  also 
modified  to  represent  the  new  form  of  the  circuit. 

3.  The  delete  command 

In  this  part,  it  may  be  necessary  that  all  the  files  that  describe  the  circuit  must 
be  modified.  The  first  file  to  be  modified  is  the  descriptor  file,  and  to  do  this 
modification  the  system  needs  to  know,  as  in  the  previous  cases,  where  the  descriptor 
that  describes  the  variable  to  be  deleted  appears  in  the  file.  To  find  this  position  the 
system  makes  a  search  in  the  SYMT  table  to  find  the  position  of  the  variable,  adding 
the  values  that  appears  in  the  DESPOS  column  to  the  variables  that  appear  before  the 
searched  variable.  With  this  value,  the  system  can  find  the  position  of  the  variable  in 
the  file,  and  with  the  value  of  the  DESPOS  column  for  the  gate  being  deleted  the 
program  knows  how  many  numbers  need  to  be  deleted  from  the  file.  After  deleting  the 
corresponding  number  of  places  in  the  file  the  system  copies  the  rest  of  the  file. 

The  next  step  will  be  the  deletion  of  the  default  delays,  that  correspond  to  this 
gate,  from  the  default  delay  file.  The  procedure  for  this  deletion  is  the  same  procedure 
that  was  used  in  the  case  of  the  descriptor  file,  with  the  difference  that,  in  this  case,  the 
system  computes  the  values  in  the  DELPOS  column  and  not  in  the  DESPOS  column. 

The  necessity  of  modifications  in  the  other  files  is  a  function  of  the  description 
of  the  circuit.  The  deletion  of  the  descriptor  from  the  modified  delay  file  and  from  the 
initialization  file,  if  necessary,  is  done  in  the  same  way  that  the  deletion  of  those  parts 
of  the  files  in  the  replace  case  was  done,  and  will  not  be  repeated  here.  To  verify  if  it  is 


necessary  to  modify  the  printout  file,  the  system  looks  for  the  column  print_position  of 
the  SYMT  table,  to  determine  if  the  variable  is  one  of  the  variables  that  is  being 
printed  in  the  circuit.  If  the  number  that  appears  in  this  column  is  0,  the  variable  is  not 
being  printed  and  the  file  does  not  need  to  be  modified.  If  the  number  is  different  from 
0  the  variable  is  being  printed  and  the  file  needs  to  be  changed.  If  the  number  in  this 
column  is  1  the  variable  is  the  first  to  be  printed  and  to  delete  it  from  the  file  the 
system  only  verifies,  in  the  next  column  of  the  table,  the  number  of  spaces  that  are 
occupied  by  the  variable  description.  This  verification  is  necessary  because  the  number 
of  spaces  occupied  by  one  variable  in  the  printout  file  is  function  of  the  number  of 
characters  that  composes  its  name.  By  verifying  the  column  spaces,  the  system  knows 
how  many  characters  compose  the  variable  name,  and  can  make  the  transformation  of 
this  number  to  the  number  of  places  occupied  by  this  variable  in  the  file.  This 
transformation  is  based  in  the  fact  that  each  character  needs  4  spaces  in  the  file  and 
that  each  variable  needs,  beyond  that,  3  more  spaces  to  itself.  In  this  case,  if  the 
number  in  the  spaces  column  is  1  the  variable  needs  7  spaces  to  be  described,  if  the 
number  is  2  the  variable  needs  1 1  spaces,  and  so  on.  With  this  value  the  system  deletes 
the  corresponding  numbers  from  the  file  and  copies  the  rest  of  the  file. 

If  the  number  in  the  print_position  column  is  different  from  0  and  1  the 
system  needs  to  verify,  in  the  same  column  of  the  table,  the  variables  that  have  a  print 
position  number  lower  than  the  number  for  the  variable  that  we  want  to  delete.  For 
these  variables  the  system  computes  the  number  of  spaces  occupied  by  each  one  (by 
verifying  the  column  spaces)  and  with  the  total  value  it  can  find  the  position  where  the 
description  of  the  variable  begins.  The  variable  can  then  be  deleted  from  the  file,  by 
computing  the  number  of  spaces  occupied  by  the  variable,  and  copying  the  rest  of  the 
file. 

Also  in  this  case  some  modifications  are  needed  in  the  gates  that  remain  in  the 
circuit  to  compensate  for  the  absence  of  one  of  the  variables.  This  modification  is  the 
same  as  in  the  insert  case,  and  the  procedure  to  do  this  modification  is  the  same  as 
presented  for  that  case. 

4.  The  altdel  command 

In  this  case  the  only  file  that  will  be  modified  is  the  modified  delay  file.  The 
modification  of  the  delays  of  the  variable  can  have  3  different  cases  to  be  treated. 

The  first  case  appears  when  the  value  of  the  delay  is  0.  In  this  case,  the  user 
wants  to  return  the  specified  delay  of  the  specified  variable  to  its  default  value.  To  do 


this  deletion  the  system  looks  in  the  DEL  table  in  the  position  that  the  descriptor 
number  that  describes  the  variable  appears.  When  this  number  is  found,  the  system 
verifies  whether  the  number  that  appears  in  the  type  column  of  the  table  corresponds 
to  the  type  of  delay  modification  that  we  want  to  do  (10  for  rise  delay  and  11  for  fall 
delay).  If  this  value  is  different,  the  system  restarts  the  search  until  it  finds  a  place 
where  the  two  numbers  are  the  same  (descriptor  number  and  type).  When  the  system 
finds  this  position  the  system  determines  if  the  input  and  the  output  numbers  are  the 
same  as  those  that  appear  in  the  input  and  output  columns  of  the  table.  When  the 
system  finds  the  position  where  all  four  numbers  are  the  same  it  knows  how  many 
numbers  are  in  the  file  before  the  description  of  this  delay  begin.  With  this  value  it  can 
find  the  position  of  the  descriptor  in  the  file,  delete  the  descriptor,  and  copy  the  rest  of 
the  file. 

The  second  case  occurs  when  the  user  wants  a  specified  path  of  a  gate  to  have 
a  specific  value  of  delay  and  the  system  can  find  the  path  in  the  DEL  table(by  verifying 
the  four  numbers  presented  before).  In  this  case,  the  user  wants  a  modification  in  a 
delay  that  is  already  modified  and  the  only  thing  that  the  system  needs  to  do  is  find  the 
place  where  this  descriptor  begins,  modify  its  value  in  the  file,  and  copy  the  rest  of  the 
file. 

The  third  case  occurs  when  the  system  can  not  find  the  specified  path  in  the 
DEL  table.  In  this  case  the  user  wants  to  insert  a  modification  of  delay  into  the  system 
~nd  the  system  does  this  insertion  in  the  end  of  the  modified  delay  file,  also  putting  the 
data  corresponding  to  this  path  into  the  DEL  table. 

5.  The  addpri  command 

In  this  command  the  only  file  that  is  modified  is  the  printout  file.  The  printout 
file  can  be  divided  into  two  parts,  one  that  presents  the  code  of  the  variables  to  be 
printed  and  another,  in  the  end  of  the  file,  that  is  the  termination  of  the  file. 

The  user  uses  this  command  when  he/she  wants  to  insert  a  printout  of  one  of 
the  system  variables.  The  best  place  to  insert  the  command  is  in  the  end  of  the  portions 
of  the  file  that  contains  the  code  for  the  printout.  To  do  this  insertion  the  system 
searchs  the  SYMT  table  to  verify  which  variables  are  to  be  printed  and  how  many 
spaces  are  occupied  by  the  code.  With  this  value  the  system  can  find  where  it  will  insert 
the  code  for  the  new  printout  and  copy  the  file. 

Because  a  printout  is  inserted  into  the  system  the  SYMT  table  needs  to  be 
modified  so  a  reference  for  this  new  printout  appears  in  future  utilizations  of  the 


circuit.  To  accomplish  the  modification  the  system  verifies,  in  the  table,  the  position  of 
the  variable  for  which  a  printout  was  inserted.  After  finding  the  correct  position,  the 
system  changes  the  value  of  the  column  print_position  from  a  value  0  (no  printout)  to 
the  value  corresponding  to  the  actual  position  of  the  variable  in  the  printout  file.  The 
value  depends  on  how  many  variables  were  printed  before.  Also  the  column 
print_spaces  of  the  table  needs  to  be  modified  to  reflect  the  number  of  characters  that 
compose  the  name  of  the  variable. 

6.  The  delpri  command 

In  this  part  the  only  file  that  is  modified  is  the  printout  file.  The  procedure  to 
delete  one  of  the  printouts  of  the  circuit  is  the  same  as  described  in  the  subsection  The 
delete  case'  for  the  deletion  of  a  printout,  and  because  of  that  it  will  not  be  presented 
here. 

7.  The  altini  command 

In  this  case  the  only  file  that  is  modified  is  the  initialization  file.  The 
implementation  of  this  command  depends  on  the  content  of  the  command,  that  can  be: 
deletion  of  a  initial  value,  modification  of  a  initial  value,  or  insertion  of  an  initial  value. 

If  the  system  receives  a  3  as  the  value  in  the  command,  it  is  understood  as  a 
order  to  delete  an  initial  value  from  the  file.  To  do  this  type  of  modification  the  system 
follows  the  same  procedure  that  was  presented  in  the  replace  command  case. 

If  the  value  received  is  0  (logical  0),  1  (logical  1)  or  2  (undefined  )  the  system 
searches  the  SYMT  table  to  find  the  position  where  the  variable  appears.  In  this  row 
the  system  looks  in  the  column  initial_position  to  verify  the  number  that  appears  there. 

If  the  number  in  this  column  is  0,  the  variable  was  not  previously  initialized, 
and  the  system  is  inserting  a  new  initial  value  of  a  variable  into  the  file.  This  insertion 
is  done  at  the  end  of  the  file  because  the  system  knows  how  many  variables  are  already 
initialized  and  consequently,  how  many  numbers  are  in  the  file.  With  this  value  the 
system  can  find  the  position  were  it  will  insert  the  new  initialization  description. 

If  the  number  in  the  initial_position  column  is  not  0,  the  variable  has  an  initial 
value  in  the  file  already.  In  this  case  the  system  will  modify  the  file.  If  the  number  in 
the  column  is  n,  the  system  knows  that  it  will  modify  the  code  that  is  placed  in  the 
position  9*(n-l)  spaces  after  the  beginning  of  the  file.  With  this  value  the  system  can 
find  the  place  where  the  initialization  descriptor  of  the  variable  begins,  modify  it,  and 
copy  the  rest  of  the  file. 


8.  The  insout  case 

In  this  case  the  system  is  inserting  an  output  into  the  system,  i.e.,  inserting  a 
gate  that  is  really  one  of  the  outputs  of  the  circuit  and,  consequently,  no  further 
modification  is  necessary  in  the  system.  The  procedure  to  insert  the  output  in  the 
system  is  the  same  that  was  used  in  the  INSERT  case,  with  the  difference  that  in  this 
case  the  part  corresponding  to  the  modification  of  another  gate  in  the  circuit  is  not 
used. 

9.  The  delout  case 

In  this  case  the  system  is  deleting  an  output  from  the  system,  i.e.,  deleting  a 
gate  that  is  really  one  of  the  outputs  of  the  circuit  and,  consequently,  no  further 
modification  is  necessary  in  the  system.  The  procedure  to  delete  the  output  from  the 
system  is  the  same  that  was  used  in  the  DELETE  case,  with  the  difference  that  in  this 
case  the  part  corresponding  to  the  modification  of  another  gates  in  the  circuit  is  not 
used. 

10.  The  altgate  case 

With  this  command  the  value  of  the  delay  of  some  path  of  a  specified  gate  will 
be  modified  in  all  the  appearances  of  this  gate  in  the  circuit  (global  modification). 

To  do  this  modification  the  first  step  is  to  search  the  SYMT  table  to  verify 
which  variables  are  output  from  this  type  of  gate.  With  the  descriptor  number  of  the 
variable  the  system  now  can  apply  the  same  procedure  that  was  used  in  the  ALTDEL 
case.  The  procedure  is  repeated  until  all  the  SYMT  table  was  searched. 

1 1 .  The  insinp  case 

In  this  case  the  user  wants  to  insert  an  input  into  the  system,  modifying  the 
existing  system,  but  without  inserting  another  gate  in  the  circuit. 

To  do  this  modification  the  system  inserts  the  new  input  into  the  beginning  of 
the  descriptor  file,  copying  the  rest  of  the  file  after  it.  After  that,  the  command  makes 
the  modifications  in  the  circuit  following  the  same  procedure  that  was  done  in  the 
modification  part  of  the  INSERT  case. 

12.  The  insinpg  command 

In  this  case  the  user  wants  to  insert  an  input  into  the  system,  modifying  the 
system  not  only  because  of  the  insertion  of  this  input  but  also  because  of  an  insertion 
of  a  new  gate  into  it. 

To  do  this  modification  the  system  inserts  the  new  input  into  the  front  of  the 
descriptor  file  and  after  that  inserts  the  new  gate  and  modifies  the  circuit  by  using  the 
same  procedure  that  was  used  in  the  INSERT  case. 


13.  The  delinp  command 

In  this  case  the  user  wants  to  delete  one  of  the  inputs  of  the  circuit,  changing 
only  the  gates  that  have  this  variable  as  input,  without  deleting  any  gate  from  the 
circuit. 

To  do  that,  the  system  searchs  the  SYMT  table  to  find  the  beginning  place  of 
the  descriptor  for  the  input  to  be  deleted,  computing  the  value  of  the  DESCV  variable 
for  the  inputs  that  appear  before  it  in  the  table.  With  this  value  the  system  knows  the 
beginning  position  of  the  descriptor  of  the  input  and  can  delete  it,  copying  the  rest  of 
the  file.  After  that  the  system  can  modify  the  circuit  by  using  the  same  procedure  that 
was  used  in  modification  part  of  the  DELETE  case. 

14.  The  delinpg  command 

In  this  case  the  user  wants  to  delete  an  input  from  the  circuit,  modifying  the 
circuit  not  only  because  of  the  deletion  of  this  input,  but  also  because  of  the  deletion 
of  a  gate  from  the  circuit. 

To  do  that  the  system  deletes  the  input  following  the  procedure  presented  in 
the  DELINP  case.  After  that  the  system  can  delete  the  gate  and  modify  the  circuit  by 
using  the  same  procedure  that  was  used  in  the  DELETE  case. 

D.  EXECUTION 

1.  Using  the  IBM  PC/AT 

All  the  files  and  programs  that  are  necessary  to  run  the  compiler,  editor  and 
simulator  programs  are  installed  in  the  IBM  PC/AT  in  the  Computer  Design 
Laboratory.  All  those  files  are  grouped  in  the  directory  SIMD  of  that  computer. 

The  steps  to  run  the  Compiler  or  the  Editor  programs,  after  the  DOS  prompt 
in  the  computer,  are  the  following: 

1.  Type  CD\SIMD  -  to  change  the  di-ectory  to  the  desired  directory 

2.  Type  PATH3  -  this  command  will  allow  all  the  paths  containing  the  programs 
that  support  the  compiler/editor  programs  be  set  up. 

3.  Using  the  KEDIT  editor,  write  the  VOHL  descriptions  for  the  circuit  that  will 
be  compiled/edited,  giving  to  that  file  a  <  filename  >  that  will  be  used  in  all 
calls.  In  the  case  where  the  description  is  to  be  used  with  the  Editor  program, 
the  complete  filename  for  the  file  will  be  the  same  <  filename  >  as  the  circuit  to 
be  modified,  followed  by  the  extension  ED.  As  an  example,  suppose  that  we 
want  to  create  a  file  that  will  describe  the  circuit  that  is  shown  in  the  Figure  1.2. 
We  can  give  the  name  TEST  to  the  file,  and  this  name  will  be  the  <  filename  > 
for  all  the  applications  of  the  circuit.  If  after  the  compilation  of  the  circuit  we 
want  to  make  any  modification  in  the  circuit  we  need  to  create  a  file  called 


TEST.ED,  and  that  file  is  the  file  that  will  be  used  by  the  Editor  program  to 
make  the  modifications  in  the  circuit.  An  example  of  a  possible  TEST.ED  file  is 
presented  in  the  Figure  4.1 . 

4.  Using  the  KED1T  editor  write  the  input  file  that  will  be  used  as  an  input  to  the 
circuit  to  be  compiled/edited.  The  name  of  this  file  will  be  <  filename >  .IN, 
with  <  filename  >  being  the  same  filename  of  the  circuit  that  is  being 
compiled/edited. 

5.  If  the  compilation  of  the  entire  circuit,  or  the  simulation  of  the  circuit  with  its 
compilation  is  desired,  type: 

MODEL2A  < filename >  <option> 

With  this  command  the  system  will  compile  or  simulate  (depending  of  the 
option  that  was  determined  by  the  user)  a  circuit  that  is  stored  in  a  file  with  the 
same  <  filename  >  .  The  options  for  the  command  are: 

c  -  compile  the  circuit,  without  simulation, 
s  -  simulate  a  circuit  already  compiled 
e  -  compile  and  simulate  a  circuit 

For  the  last  two  cases  an  input  file  is  necessary  for  the  correct  function  of  the 
system.  In  both  cases  the  results  will  appear  in  the  file  <  filename  >  .OUT.  After 
running  the  program  (in  any  of  the  3  cases)  the  DESCT  table,  the  SYMT  table, 
the  DEL  table,  the  INI  table,  and  all  the  files  that  describe  the  circuit 
(descriptor,  default  delay, etc...)  will  be  stored  in  the  hard-disk  to  allow  reuse. 

6.  If  it  is  desired  to  edit  the  circuit,  or  to  simulate  the  circuit  with  editing,  type: 

MODEL3B  <  filename  >  <  option  > 

With  this  command  the  system  will  edit  or  simulate  a  circuit  that  is  stored  in  a 
file  with  the  same  <  filename  > .  The  circuit  needs  to  be  previously  compiled. 
The  options  for  this  command  are: 

c  -  edit  the  circuit,  without  simulation, 
s  -  simulate  a  circuit  already  compiled/edited 
e  -  edit  and  simulate  a  circuit 

For  the  last  two  cases  an  input  file  is  necessary  for  the  correct  function  of  the 
system.  In  both  cases  the  results  will  appear  in  the  file  <  filename  >  .OUT.  After 
running  the  program  (in  any  of  the  3  cases)  the  DESCT  table,  the  SYMT  table, 
the  DEL  table,  the  INI  table,  and  all  the  files  that  describe  the  circuit 
(descriptor,  default  delay, etc...)  will  be  stored  in  the  hard-disk  to  allow  a  later 
use. 

2.  Using  the  VAX-UNIX 

The  necessary  programs  for  the  execution  of  the  compiler,  editor  and 
simulator  programs  are  also  found  in  the  VAX  computer  at  the  Naval  Postgraduate 
School.  Here  there  is  no  possibility  for  the  use  of  an  unique  command  to  execute  the 
file.  Instead,  each  operation  needs  to  be  called  in  a  different  way.  There  are  3  different 
executable  files  each  one  being  called  in  a  different  way  (CADD2  for  the  compiler, 
SIMULA  for  the  simulator  and  CEDT  for  the  editor). 

To  compile  the  circuit,  the  command  is: 
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Figure  4.1  The  TEST. ED  file 
CADD2  <  filename  > 

where  filename  is  the  file  that  contains  the  circuit  to  be  compiled. 
To  edit  the  circuit,  the  command  is: 

CEDT  <  filename  > 

where  filename  is  the  file  that  contains  the  circuit  to  be  edited. 

To  run  the  simulation  of  the  circuit  alone  the  command  is: 

SIMULA  <filename> 


where  filename  is  the  file  that  contains  the  circuit  to  be  simulated.  In 
this  case  a  file  <  filename  >  .in,  with  the  input  values  of  the  circuit,  needs  to  be  created 
to  allow  the  simulation  of  the  circuit,  and  a  file  <  filename>  .out  will  be  created  by  the 
system  with  the  outputs  for  the  circuit. 


V.  PERFORMANCE 


To  verify  the  correctness  of  the  EDITOR  program  and  evaluate  its  performance 
several  tests  were  run  with  different  circuits,  each  run  testing  one  of  the  capabilities  of 
the  program. 

If  the  objective  of  the  tests  were  only  to  verify  the  correctness  of  the  program 
any  set  of  tests  that  cover  all  the  possibilities  of  the  program  could  be  considered  a 
good  test,  but  when  the  test  must  also  evaluate  the  program  some  points  need  to  be 
considered. 

The  time  that  the  EDITOR  program  will  take  to  run  a  specific  test  will  depend 
on  two  characteristics:  what  is  the  modification  that  we  want  to  introduce  into  the 
circuit  and  what  is  the  size  of  the  files  (descriptor  file,  default  delay  file,  modified  delay 
file,  initialization  file  and  printout  file)  that  describe  the  circuit.  The  descriptor  file  and 
the  default  delay  file  have  a  size  that  can  be  considered  directly  proportional  to  the  size 
of  the  circuit.  The  size  of  the  other  3  files  will  be  a  function  of  the  special 
characteristics  that  the  user  gives  to  the  circuit,  and  can  be  either  empty  or  large, 
depending  on  the  description  of  the  circuit  given  by  the  user.  The  time  that  the 
compiler  program  needs  to  generate  those  files  is  also  a  function  of  the  size  of  the 
circuit  and  its  characteristics,  with  the  time  increasing  when  the  size  or  the  number  of 
characteristics  increases. 

The  evaluation  of  the  EDITOR  program  can  be  done  by  measuring  the  time  that 
is  needed  to  perform  some  modification  in  the  circuit  using  the  program  and  by 
comparing  this  time  with  the  time  that  would  be  necessary  to  compile  the  entire  circuit 
with  the  modification  inserted.  At  this  point  the  first  question  appears.  What  is  the 
better  way  to  do  this  comparison?  It  is  better  to  use  a  large  circuit  with  a  lot  of 
characteristics  inserted,  a  large  circuit  with  few  characteristics  inserted,  or  a  small 
circuit  with  few  characteristics?  It  is  almost  impossible  to  answer  this  question,  because 
the  answer  will  be  different  from  case  to  case,  depending  of  what  we  want  to  modify  in 
the  circuit.  For  example,  if  we  want  to  modify  the  initial  values  of  the  variables  it  is 
better  to  have  a  large  circuit  with  few  characteristics,  particularly  if  it  has  few  initial 
values  in  the  original  circuit,  because  the  time  that  will  be  needed  to  rewrite  the 
initialization  file  will  be  small  with  respect  to  the  time  to  write  all  the  files.  But.  if  we 


want  to  insert  a  gate  into  the  circuit  the  time  that  will  be  used  for  the  EDITOR 
program  will  be  the  same  for  each  circuit  and  will  be  dependent  only  of  the  size  of  the 
circuit.  However,  the  performance  with  respect  to  the  compiler  program  will  be 
different  depending  on  whether  the  circuit  has  few  (or  none)  delay  modifications, 
initializations,  and  printouts  or  if  it  has  many  of  those  characteristics. 

Another  question  concerns  the  necessity  of  recompiling  the  circuit  with  the 
modification  inserted  to  allow  a  correct  comparison  with  the  EDITOR  program.  If  we 
think  in  real  terms,  each  of  the  tests  that  are  done  in  the  circuit  really  need  to  be  two 
tests,  one  using  the  EDITOR  program  and  the  other  using  the  recompilation  of  the 
circuit  with  the  modification.  However,  the  time  required  to  perform  all  the  necessary 
tests  could  be  incompatible  with  the  time  available  for  the  preparation  of  this  thesis, 
and  because  of  that,  some  of  the  recompilations  were  done,  but  in  the  cases  where  the 
modifications  were  similar  the  recompilations  of  the  entire  circuit  was  done  only  once, 
with  this  time  being  considered  the  default  for  the  similar  cases.  This  was  done  because 
when  we  do  a  compilation  of  the  entire  circuit  the  factors  that  determine  the  time 
needed  for  the  compilation  are  the  size  of  the  circuit  and  the  number  of  different 
characteristics  in  the  circuit.  To  understand  that  suppose  that  we  have  a  circuit  with  n 
gates.  If  we  insert  3  gates  and  replace  1  gate  in  this  circuit  the  circuit  will  have  n+3 
gates  and  the  same  characteristics.  If,  in  the  original  circuit,  we  insert  3  gates  and  make 
3  modifications  the  number  of  gates  that  the  compiler  program  will  found  is  n+3,  and 
the  characteristics  of  the  circuit  will  be  the  same.  As  we  can  see  the  time  for  the  edition 
of  the  circuit  will  be  different  in  the  two  cases,  because  we  are  inserting  and  modifying 
a  different  number  of  gates,  but  the  time  for  compilation  of  the  entire  circuit  will  be  the 
same,  because  the  number  of  gates  and  the  characteristics  of  the  circuit  will  be  the 
same. 

To  perform  the  tests  of  the  Editor  program  two  circuits  were  used.  The  first 
circuit  was  the  ALU  circuit,  that  is  presented  in  the  Appendix  H,  and  the  second 
circuit  was  the  circuit  that  is  presented  in  Figure  1.2  .  The  ALU  circuit  is  composed  of 
142  gates,  but  has  no  delay  modification,  few  initializations,  and  printouts.  The  second 
circuit  is  composed  of  14  gates,  but  has  some  delay  modifications,  few  initializations, 
and  a  medium  number  of  printouts. The  first  step  in  the  test  of  the  EDITOR  program 
is  to  compile  both  circuits  and  verify  the  time  that  is  needed  by  each  one  to  complete 
the  compilation.  The  ALU  program  needed  4  minutes  and  35.38  seconds  to  complete 
the  compilation,  while  the  second  circuit,  that  we  will  call  TEST  circuit,  needed  40.94 
seconds  to  perform  the  compilation. 


The  measurement  of  the  performance  of  the  editor  was  made  by  the  computation 
of  the  ratio  between  the  time  needed  by  the  editor  to  perform  the  corresponding 
modification  and  the  time  needed  by  the  compiler,  in  percentage.  The  values  found  in 
the  tests  are  presented  in  the  last  column  of  the  tables  that  are  presented  in  this 
chapter.  The  equation  for  the  computation  of  this  value  is  presented  in  the  Equation 
5.1 

edit  time 

ratio  =  - x  100%  (eqn  5.1) 

compilation  time 

More  than  350  tests  were  performed  to  evaluate  the  performance  of  the  Editor 
program  and  the  results  will  be  presented  in  the  following  sections. 

A.  THE  REPLACE  CASE 

When  the  replacement  of  gates  is  done  in  the  circuit  the  time  that  will  be  needed 
to  recompile  the  entire  circuit  is,  in  the  worst  case,  the  same  that  was  necessary  to 
compile  the  original  circuit.  The  worst  case  is  when  none  of  the  gates  being  replaced 
had  delay  modifications  or  initial  values  in  the  original  circuit  because  in  this  case 
nothing  will  be  deleted  from  the  files.  If  some  of  the  gates  had  any  of  the  mentioned 
characteristics  in  the  original  program  some  files  will  be  small,  and  consequently,  the 
system  will  need  less  time  to  do  the  compilation.  This  difference  in  time  is  not  very 
large  and,  for  the  effects  of  the  test,  the  time  of  recompilation  will  be  considered  as 
being  the  same  time  necessary  for  the  compilation  of  the  original  circuit. 

The  Table  7  presents  the  results  of  the  tests  done  with  the  ALU  circuit  for  the 
replace  gate  cases.  The  first  column  of  the  table  presents  the  number  of  gates  that  are 
being  replaced  in  the  circuit,  with  the  second  and  third  columns  presenting  the  amount 
of  time  needed  for  the  edition  and  recompilation  of  the  circuit,  respectively.  The  last 
column  of  the  table  presents  the  comparison  (in  %)  between  the  time  for  the  edition 
and  the  time  for  recompilation  of  the  circuit. 

As  we  can  see  we  can  replace  approximately  5%  of  the  number  of  gates  in  the 
circuit  using  the  editor  program  in  an  amount  of  time  less  than  the  time  needed  for  the 
recompilation  of  the  entire  circuit.  This  result  could  be  considered  satisfactory',  since 
the  ALU  circuit  can  be  considered,  perhaps,  the  worst  case  for  the  replacement  of  the 


TABLE  7 

THE  REPLACE  CASE 
FOR  THE  ALL  CIRCUIT 


gates 

replaced 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

1 

01  00. 93 

04  35. 38 

22.  13 

2 

01  31.  92 

04  35.  38 

33.  38 

3 

04  35.  38 

49.  63 

4 

04  35.  38 

58.  60 

5 

03  09. 35 

04  35.  38 

68.  76 

6 

04  35.  38 

79.  22 

7 

04  07. 32 

04  35.  38 

89.81 

gates,  having  no  modification  of  delays  and  very  few  initializations,  factors  that 
certainly  would  increase  the  time  needed  for  the  compilation  of  the  circuit  and  that 
could  allow  a  great  number  of  gates  to  be  replaced  m  the  time  that  was  needed  by  the 
compiler  program  for  the  compilation  of  the  circuit. 

Table  8  presents  the  results  of  the  tests  done  with  the  TEST  circuit  for  the 
replace  gate  cases.  This  table  has  the  same  format  as  the  table  presented  for  the  ALL 
circuit. 

As  we  can  see  this  case  is  better  than  the  ALU  case,  because  in  the  time  needed 
for  the  recompilation  of  the  circuit  we  can  replace  almost  29%  of  the  gates  of  the 
circuit.  This  could  be  considered  an  excellent  result,  because  is  not  normal  a 
replacement  for  this  amount  of  gates  in  a  circuit. 

B.  THE  INSERT  CASE 

In  this  case  two  parameters  are  important  in  the  measurement  of  the 
performance  of  the  Editor  program:  how  many  gates  are  being  inserted  and  how  many 
gates  will  be  replaced  due  to  those  insertions.  The  measurement  of  the  performance  of 
the  program  in  this  case  was  done  by  comparmg  the  amount  of  time  needed  by  the 
Editor  program  to  modify  the  circuit  and  the  time  needed  by  the  recompilation  of  the 


83 


TABLE  8 

THE  REPLACE  CASE 
FOR  THE  TEST  CIRCUIT 


gates 

replaced 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

1 

00  22.  95 

00  42. 64 

53.  82 

2 

00  28.  30 

00  42. 64 

66.  37 

3 

00  34.  10 

00  42. 64 

79.  97 

4 

00  39.  32 

00  42. 64 

92.  21 

circuit  that  is  composed  of  the  n  original  gates  plus  the  number  of  gates  that  are  being 
inserted. 

The  Table  9  presents  the  result  of  the  tests  for  the  ALU  circuit.  The  table  is 
basically  the  same  as  the  replace  case  with  one  more  column  added  to  the  table  to 
represent  the  number  of  gates  inserted  in  the  circuit. 

As  we  can  see,  the  Editor  program  allows  that  1  gate  be  inserted  and  8  modified 
or  7  gates  be  inserted  and  I  modified  in  the  same  time  that  the  compiler  program  needs 
to  compile  the  entire  circuit.  These  numbers  show  that  we  can  insert/ replace  more  than 
5%  of  the  gates  of  the  circuit,  that  is  very  powerful. 

The  Table  10  presents  the  result  of  the  tests  for  the  TEST  circuit.  The  table 
format  is  the  same  of  the  ALU  case. 

In  this  case  the  Editor  program  allows  the  insertion/replacement  of  up  to  6  gates 
in  less  time  than  the  time  necessary  for  the  compilation  of  the  entire  circuit.  Those 
numbers  show  that  we  can  change  almost  43%  of  the  gates  of  the  entire  circuit 
without  the  necessity  of  recompilation.  This  is  really  an  excellent  result. 

There  is  a  great  difference  in  the  number  of  gates  changed  in  both  circuits.  This 
difference  can  be  explained  by  the  size  of  the  different  files  that  describe  the  circuits. 
In  the  ALU  circuit  we  do  not  have  the  modified  delay  file,  the  initialization  file  is  very 
small,  and  the  descriptor  file  and  the  default  delay  files  are  very  large.  As  the  insertion 
and  replace  cases  works  basically  with  these  two  files  and  as  the  other  files  are  almost 
non-existent,  the  Editor  program  does  not  take  as  much  time  to  copy  the  other  files 
back  and  forth.  If  the  circuit  had  delay  modifications  and  more  initializations  certainly 
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TABLE  9 

THE  INSERT  CASE 
FOR  THE  ALU  CIRCUIT 


gates  gates 
inserted  replaced 


edit 

time 

min  sec 

compilation 
time 
min  sec 

01  24.  82 

04  39. 12 

01  50.  04 

04  39.  12 

02  16.  67 

04  39. 12 

02  41.  36 

04  39.  12 

03  07.  42 

04  39.  12 

03  32.27 

04  39.  12 

03  58. 09 

04  39. 12 

04  23.80 

04  39. 12 

01  58.35 

04  41.  67 

02  23. 14 

04  41. 67 

02  49. 79 

04  41.  67 

03  14.07 

04  41.  67 

03  40. 04 

04  41.  67 

04  05. 84 

04  41.  67 

04  31.  86 

04  41.  67 

02  30.  99 

04  44.  08 

02  55.45 

04  44.  08 

03  22.88 

04  44.08 

03  49. 68 

04  44.  08 

04  16.  18 

04  44.  08 

04  42.  96 

04  44.  08 

03  03. 85 

04  46.  37 

ratio 

% 


30.  39 


39.  42 


48.  96 ! 


57.  81 


67.  15 


76.  05 


85.  30 


94.  51 


42.  02 


50.  82 


60.  28 


68.  90 


78.  12 


87.  28 


96.  52 


52.  41 


60.  90 


70.  42 


79.  73 


88.  93 


98.  22 


64.  20 


TABLE  9 

THE  INSERT  CASE  (CONT'D.) 


gates 

inserted 

gates 

replaced 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

4 

2 

03  31.09 

04  46.  37 

73.  71 

4 

3 

03  58.  50 

04  46.  37 

83.  28 

4 

4 

04  25.  72 

04  46.37 

92.  79 

5 

1 

03  38.  01 

04  48.  72 

75.  51 

5 

2 

04  06.  16 

04  48.  72 

85.  26 

5 

3 

04  34.  47 

04  48. 72 

95.  06 

6 

1 

04  13.  21 

04  50.85 

87.  06 

6 

2 

04  42.21 

04  50.85 

97.  03 

7 

1 

04  50.  25 

04  53.01 

99.  06 

the  number  of  gates  that  could  be  replaced  would  be  greater.  This  can  be  seen  in  the 
TEST  circuit.  In  this  circuit,  even  with  the  descriptor  and  default  delay  files  being  the 
largest  files  of  the  circuit,  the  other  3  files  have  a  reasonable  size  and  this  will  influence 
the  number  of  gates  that  we  can  change,  as  we  can  see  by  the  results  obtained  during 
the  tests. 

C.  THE  DELETE  CASE 

Also  in  this  case,  two  parameters  are  important  in  the  measurement  of  the 
performance  of  the  Editor  program:  how  many  gates  are  being  deleted  and  how  many 
gates  will  be  replaced  due  to  those  deletions.  The  measurement  of  the  performance  of 
the  program  in  this  case  was  done  by  comparing  the  amount  of  time  needed  by  the 
Editor  program  to  modify  the  circuit  and  the  time  needed  to  recompile  the  circuit  that 
is  composed  of  the  n  original  gates  less  the  number  of  gates  that  are  being  deleted. 

Table  11  presents  the  result  of  the  tests  for  the  ALU  circuit.  The  table  is 
basically  the  same  as  the  insert  case  with  the  column  gates  inserted  replaced  by  the 
column  gates  deleted. 


TABLE  10 


THE  INSERT  CASE 
FOR  THE  TEST  CIRCUIT 


gates 

inserted 

gates 

replaced 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

1 

1 

00  22.  88 

00  43. 49 

52.  61 

1 

2 

00  43. 49 

65.  97 

1 

3 

00  33. 18 

00  43. 49 

76.  29 

1 

4 

00  37.21 

00  43. 49 

85.  56 

1 

5 

00  41.  36 

00  43. 49 

95.  10 

2 

1 

00  30. 97 

00  45. 39 

68.  23 

2 

2 

00  34.21 

00  45. 39 

75.  37 

2 

3 

00  38.  98 

00  45.39 

85.  88 

2 

4 

00  43.23 

00  45. 39 

95.  24 

3 

1 

00  36.  18 

00  46.  44 

77.  91 

3 

2 

00  40. 60 

00  46.  44 

87.  42 

3 

3 

00  45.31 

00  46.  44 

97.  57 

4 

1 

00  41.  66 

00  48. 33 

86.  20 

4 

2 

00  46. 49 

00  48. 33 

96.  19 

5 

1 

00  47.38 

00  50. 41 

93.  99 

As  we  can  see  the  Editor  program  allows  1  gate  to  be  deleted  and  8  modified  or  6 
gates  be  deleted  and  l  modified  in  the  same  time  that  the  compiler  program  needs  to 
compile  the  entire  circuit.  These  numbers  show  that  we  can  delete; replace  almost  5% 
of  the  gates  of  the  circuit. 

Table  12  presents  the  result  of  the  tests  for  the  TEST  circuit.  The  table  format  is 
the  same  as  the  ALU  case. 

As  we  can  see,  in  this  case  the  Editor  program  allows  the  deletion  and 
replacement  of  until  4  or  5  gates  in  less  time  than  the  time  necessary  for  the 


TABLE  11 

THE  DELETE  CASE 
FOR  THE  ALL  CIRCUIT 


gates 

edit 

compilation 

replaced 

time 

time 

ratio 

min  sec 

mm  sec 

% 

1 

01 

26.  31 

04 

35. 

07 

31.  38 

2 

01 

56.  14 

04 

35. 

07 

42.  22 

3 

02 

16.  17 

04 

35. 

07 

49.  50 

4 

02 

42.  47 

04 

35. 

59.  06 

5 

03 

05.  74 

04 

35. 

07 

67.  52 

6 

03 

30.  85 

04 

35. 

07 

76.  65 

7 

03 

55.  29 

04 

35. 

07 

85.  54 

6 

04 

20.  11 

04 

35. 

07 

94.  56 

1 

02 

02.  98 

04 

33. 

58 

44.  95 

2 

02 

23.  35 

04 

33. 

58 

52.  40 

3 

02 

47.  56 

04 

33. 

58 

61.  25 

4 

03 

11.  74 

04 

33. 

58 

70.  09 

5 

79.  03 

6 

. 

04 

00.  54 

— 

04 

33. 

58 

87.  92 

7 

04 

25.  15 

04 

33. 

58 

96.  92 

1 

02 

39.  71 

04 

32. 

31 

58.  65 

2 

03 

03.  01 

04 

32. 

31 

67.  21 

3 

04 

32. 

31 

76.  75 

4 

03 

53.  16 

04 

32. 

31 

85.  62 

5 

04 

18.  57 

04 

32. 

31 

94.  95 

1 

03 

16.  43 

04 

30. 

58 

72.  60 

2 

03 

39.  24 

04 

30. 

58 

81.  03 

3 

04 

02.  39 
_ _  ■  - 

04 

30. 

58 

89.  58 

88 
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TABLE  11 

THE  DELETE  CASE  (CONT'D.) 


gates 

deleted 

gates 

replaced 

edit 

time 

min  sec 

— 

compilation 
time 
min  sec 

ratio 

% 

4 

4 

04  25.  24 

04  30.  58 

98.  03 

!  5 

1 

03  42. 84 

04  28.  97 

82.  85 

5 

2 

04  05. 29 

!  6 

_ i _ 

04  19. 65 

04  27.  02 

97.  24 

TABLE  12 

THE  DELETE  CASE 
FOR  THE  TEST  CIRCUIT 


gates 

deleted 

L  _ 

gates 

replaced 

edit 

time 

min  sec 

ratio 

% 

r 

1 

. 

1 

00  25. 71 

00  42. 26 

60.  84 

i 

2 

00  30.  16 

00  42.  26 

71.  37 

3 

00  33. 24 

00  42. 26 

78.  66 

i 

4 

00  37.  09 

00  42. 26 

87.  77 

1 

5 

00  41. 00 

00  42.  26 

97.  02 

2 

1 

00  31.  59 

00  41.  33 

76.  43 

2 

2 

00  35.  81 

00  41. 33 

86.  64 

2 

3 

00  40. 07 

00  41.  33 

96.  95 

3 

1 

00  37.  31 

00  39.  67 

94.  05 

compilation  of  the  entire  circuit.  These  numbers  show  that  we  can  change  almost  30 
of  the  gates  of  the  entire  circuit  without  the  necessity  for  recompilation. 


D.  THE  ALTDEL  CASE 

In  the  ALTDEL  case  we  have  three  distinct  possibilities;  insertion  of  delays, 
modification  of  delays  already  modified,  or  return  to  default  delays. 

In  this  case,  the  tests  were  not  done  by  increasing  1  variable  at  a  time  because,  as 
the  only  file  that  is  modified  in  this  case  is  the  modified  delay  file,  the  variation  of  time 
for  increasing  1  variable  is  very  small.  The  Table  13  presents  the  results  of  the  tests 
executed  for  the  ALU  circuit.  The  table  presents  the  type  of  modification  made  in  the 
circuit,  the  number  of  paths  whose  delays  were  affected  by  the  modification,  the  time 
necessary'  to  do  the  modification  with  the  Editor  program,  and  the  comparison  with  the 
time  needed  to  do  the  compilation  of  the  circuit  with  the  modification  inserted. 

In  the  column  modification  type  (MODIF.  TYPE)  a  code  was  used  to  represent 
the  modification  that  was  done  to  the  delays.  This  code  is: 

1.  I  -  insertion  of  delays 

2.  M  -  modification  of  delays 

3.  D  -  return  to  default 

Table  14  presents  the  results  of  the  tests  executed  for  the  TEST  circuit.  The 
format  of  this  table  is  the  same  as  the  table  that  presented  the  results  for  the  ALU 
circuit. 

As  we  can  see  the  Editor  program  is  a  powerful  tool  when  the  user  needs  to 
modify  the  delays  of  the  circuit  that  is  being  simulated.  The  system  allows  the 
insertion  of  delays  in  a  number  of  paths  that  is  almost  equal  to  1.5  times  the  number 
of  gates  that  compose  the  circuit.  For  the  case  of  deletion  of  delays  the  number  of 
paths  that  we  can  work  with  actually  outnumber  the  number  of  gates  existing  in  the 
circuit,  and  only  in  the  modification  case  does  this  number  fall  to  one  half  of  the 
number  of  gates.  The  difference  in  time  in  each  of  these  cases  is  due  to  the  size  of  the 
files  that  the  system  is  working  with.  We  can  delete(insert)  more  delays  than  modify 
delays  because  in  the  first  case  the  modified  delay  file  starts  big( small)  and  starts  to 
decrease! increase)  while  the  system  is  deleting(inserting)  delays  and,  consequently,  the 
average  time  to  work  with  a  specific  number  of  delays  is  lower  than  the  time  to  modify 
the  same  number  of  delays.  On  the  other  hand,  for  the  same  case  the  modified  deiay 
file  will  always  have  the  same  size. 

E.  THE  ADDPRI  CASE 

As  the  MultiSim  package  presents  the  output  as  a  table  of  results,  the  number  of 
printouts  that  are  allowed  in  the  system  are  bounded  by  the  size  of  the  screen.  As  the 


90 


TABLE  13 

THE  ALTDEL  CASE 
FOR  THE  ALU  CIRCUIT 


modif . 
type 

paths 

changed 

edit 

time 

min  sec 

compilat. 

time 

min  sec 

ratio 

% 

I 

1 

00  22. 15 

04  36.  02 

8.  02 

I 

3 

00  26.  43 

04  36.  30 

9.  57 

I 

6 

00  28.  11 

04  37.  13 

10.  14 

M 

6 

00  28.  52 

04  37.  13 

10.  29 

D 

6 

00  27.22 

04  35.  38 

9.  88 

I 

12 

00  30.  47 

04  39.  01 

10.  92 

M 

78 

04  04.36 

05  15.39 

77.  48 

I 

90 

01  48.  14 

05  31.  86 

32.  59 

D 

90 

01  48.  41 

04  35.  38 

39.  37 

I 

156 

04  13. 71 

06  12.31 

68.  14 

D 

156 

04  14.  63 

04  35.  38 

92.  46 

norm,  we  can  have  a  maximum  of  80  columns  on  the  screen  and  the  maximum  number 
of  printouts  allowed  is  18,  if  all  the  variables  have  a  name  with  2  characters,  because 
the  first  column  in  the  printout,  which  is  the  time,  occupies  4  columns,  and  we  need  to 
have  one  column  of  separation  between  each  name. 

Because  of  this,  the  tests  that  were  performed  were  limited  to  17  additional 
printouts  in  the  circuit. 

Following  the  statements  presented  before,  the  EDITOR  program  was  tested 
inserting  17  variables  in  the  printout  of  the  ALU  circuit,  and  it  needed  37.31  sec,  that 
is  only  13.51%  of  the  4  minutes  and  36.15  seconds  needed  to  compile  the  entire  circuit 
with  18  printouts.  When  the  program  was  tested  on  the  TEST  circuit  it  needed  27.24 
seconds  to  add  the  17  printouts  in  the  circuit,  what  is  63.67%  of  the  42.83  seconds 
needed  to  compile  the  entire  circuit. 


TABLE  14 


THE  ALTDEL  CASE 
FOR  THE  TEST  CIRCUIT 


modif . 
type 

paths 

changed 

edit 

time 

min  sec 

compilat. 

time 

min  sec 

ratio 

% 

I 

1 

00  17.  35 

00  42. 64 

40.  69 

I 

11 

00  19. 87 

00  44.  73 

44.  42 

M 

11 

00  31.  06 

00  44.  73 

69.  44 

I 

16 

00  23.  98 

M 

20 

00  33. 14 

00  45.86 

72.  26 

D 

20 

00  25. 87 

00  42. 64 

60.  67 

With  the  limitations  imposed  by  the  actual  output  of  the  simulator,  the  case  for 
added  printouts  in  the  circuit  is  always  better  with  the  Editor  program. 

F.  THE  DELPHI  CASE 

In  this  case  the  limitations  that  appeared  in  the  add  printout  case  also  apply  and, 
because  of  that,  the  system  was  tested  for  the  worst  case  of  17  printouts  deletions. 

In  the  ALU  circuit  the  Editor  program  needed  36.85  seconds  to  delete  the  17 
printouts,  that  is  only  13.38%  of  the  time  needed  by  the  system  to  compile  the  entire 
circuit. 

In  the  TEST  circuit  the  system  needed  26.60  seconds  to  delete  the  17  printouts, 
an  amount  of  time  that  corresponds  to  63.89%  of  the  41.63  seconds  needed  by  the 
system  to  compile  the  entire  circuit. 

G.  THE  ALTINI  CASE 

In  the  ALTINI  case  we  can  have  three  distinct  possibilities  that  are: 
initialization  of  variables  that  are  not  initialized  yet;  modification  of  initialization 
values  of  variables  that  are  already  initialized;  deletion  of  variables  from  the 
initialization  list.i.e.,  the  variable  was  initialized  before  and  the  user  wants  that  it  be 
undefined. 


In  this  case,  the  tests  were  not  done  by  increasing  1  variable  each  time  because, 
as  the  only  file  that  is  modified  in  this  case  is  the  initialization  file,  the  variation  of  time 
to  increase  1  variable  is  very  small.  Table  15  presents  the  results  of  the  tests  executed 
for  the  ALU  circuit.  The  table  presents  the  type  of  modification  made  in  the  circuit, 
the  number  of  variables  that  were  affected  by  the  modification,  the  time  necessary  to 
do  the  modification  with  the  Editor  program,  and  the  comparison  with  the  time  needed 
to  do  the  compilation  of  the  circuit  with  the  modification  inserted. 

In  the  column  modification  type  (MODIF.  TYPE)  a  code  was  used  to  represent 
the  type  of  modification  to  the  variables.  This  code  was: 

1.  I  -  insertion  of  initial  values  into  new  variables 

2.  M  -  modification  of  initial  values  of  variables  already  initialized 

3.  D  -  deletion  of  initial  values 

The  column  total  presents  the  number  of  initial  value  assignments  in  the 
initialization  file  at  the  end  of  the  user  command.  This  information  is  important 
because  the  size  of  the  initialization  file  is  the  predominant  factor  in  this  command's 
performance.  Due  to  the  size  of  the  file,  the  modification  of  the  same  number  of  initial 
values  can  have  different  times,  depending  on  whether  the  initialization  file  is  small  or 
not. 

Table  16  presents  the  results  of  the  tests  executed  for  the  TEST  circuit.  The 
format  of  this  table  is  the  same  as  the  table  that  presented  the  results  for  the  ALU 
circuit. 

As  we  can  see  the  Editor  program  is  a  powerful  tool  when  the  user  needs  to 
modify  the  initial  values  of  the  variables  in  the  circuit  being  simulated.  The  system 
allows  the  insertion/deletion  of  initial  values  in  a  number  of  variables  that  could  be,  in 
some  of  the  cases,  equal  to  the  number  of  gates  in  the  circuit.  From  the  tables,  for 
small  circuits  the  Editor  program  is  capable  of  inserting,  modifying,  or  deleting  the 
initial  values  for  all  the  variables  in  the  circuit  in  less  time  than  the  time  needed  for 
compilation  of  the  circuit.  For  large  circuits  we  can  insert  or  delete  a  number  of  initial 
conditions  that  will  be  almost  equal  to  the  number  of  gates  in  the  circuit,  but  we 
cannot  modify  a  large  number.  In  any  event  we  can  modify  the  initial  values  in  almost 
one  half  of  the  gates  in  the  circuit.  The  difference  in  time  for  each  of  these  cases  is  due 
to  the  size  of  the  files.  The  number  of  files  where  we  can  deletef insert)  more  initial 
values  is  more  than  the  number  of  files  we  can  modify,  because  in  the  first  case  the 
initialization  file  starts  big(small)  and  starts  to  decrease(increase)  while  the  system  is 


TABLE  15 

THE  ALT1NI  CASE 
FOR  THE  ALL  CIRCE  IT 


modif . 

var. 

— 

— 

edit 

i 

compl i at . 

type 

changed 

total 

time 

t: 

.me 

rat 

1  o 

min 

sec 

min 

sec 

c 

I 

1 

2 

00 

27. 

r 

05 

04 

36. 

02 

9 

ec 

M 

20 

142 

02 

14. 

57 

1 

05 

12. 

21 

43. 

10 

D 

30 

112 

02 

52. 

30  ' 

{ 

04 

59. 

S3 

57. 

4  7 

I 

64 

65 

01 

53. 

78 

04 

43. 

08 

40. 

19 

M 

64 

65 

03 

08. 

73  j 

04 

43. 

08 

66. 

6“’ 

D 

64 

1 

01 

53. 

t 

66 

04 

35. 

38 

41. 

«■}  ~7 

I 

111 

112 

04 

39. 

66 

04 

59. 

83 

93. 

2  7 

D 

110 

1 

04 

34. 

81 ' 

04 

35. 

38 

99. 

79 

TABLE  16 

THE  ALTIM  CASE 
FOR  THE  TEST  CIRCUIT 


modif. 

type 

var. 

changed 

total 

edit 

time 

min  sec 

compilat. 

time 

min  sec 

I 

i 

ratio  j 
y 

/o  1 

I 

1 

6 

00  18.  11 

00  42. 64 

42.  47 

I 

l _ _ 

11 

16 

00  20.  40 

00  45. 17 

45.  16 

mm 

11 

16 

00  32. 93 

00  45. 17 

72.  90 

i 

16 

21 

00  25. 51 

00  46. 83 

54.  47 

M 

20 

21 

00  34.  92 

-  . 

00  46. 83 

74.  57 

D 

20 

1 

. 

00  27.  20 

00  42. 11 

64.  59 

delcting( inserting)  initial  values.  Consequently,  the  average  time  to  work  with  a  specific 
number  of  initial  values  is  lower  than  the  time  to  modify  the  same  number  of  values. 


H.  THE  INSOUT  CASE 


As  the  system  worked  with  the  insertion  of  gates  the  tests  were  done  once  more 
by  inserting  one  gate  at  a  time. 

Table  17  presents  the  results  of  the  tests  for  the  ALU  circuit.  The  first  column  of 
the  table  presents  the  number  of  gates  being  inserted  in  the  circuit,  with  the  second  and 
third  columns  presenting  the  amount  of  time  needed  for  the  edition  and  recompilation 
of  the  circuit,  respectively.  The  last  column  of  the  table  presents  the  comparison  (in  %) 
between  the  time  for  the  edition  and  the  time  for  recompilation  of  the  circuit. 

TABLE  17 

THE  INSOUT  CASE 
FOR  THE  ALU  CIRCUIT 


gates 

inserted 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

1 

00  57. 63 

04  39. 12 

20.  65 

2 

01  30.  80 

04  41.  67 

32.  24 

3 

02  02.82 

04  44.  08 

42.  63 

4 

02  36.80 

04  46.  37 

54.  75 

5 

03  09.25 

04  48.  72 

65.  55 

6 

03  42.07 

04  50.  85 

76.  35 

7 

04  15.  53 

04  53. 01 

87.  21 

8 

04  49.  34 

04  55.  18 

98.  02 

As  we  can  see  the  number  of  outputs  that  can  be  inserted  in  ’.he  . 
equal  to  6%  of  the  number  of  gates  that  compose  it.  This  result  .  v 
satisfactory  because  it  is  not  normal  for  a  user  to  insert  a  large  r. 
the  circuit  in  one  change. 

Table  18  presents  the  results  of  the  tests  done  ;  ' 

output  case.  This  table  has  the  same  format  a- 
circuit. 
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TABLE  18 


THE  INSOUT  CASE 
FOR  THE  TEST  CIRCUIT 


gates 

inserted 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

1 

00  22.00 

00  43.49 

50.  59 

2 

00  27.  63 

00  45.39 

60.  87 

3 

00  32.  51 

00  46.  44 

70.  00 

4 

00  38.08 

00  48.33 

78.  79 

5 

00  44.  37 

00  50.41 

88.  02 

As  we  can  see,  this  case  is  better  than  the  ALU  case,  because  for  the  same  time 
needed  for  the  recompilation  of  the  circuit  we  can  insert  almost  36%  of  the  gates  of  the 
circuit.  Because  it  is  not  normal  to  insert  this  amount  of  outputs  in  a  circuit,  this  can 
be  considered  an  excellent  result. 

I.  THE  DELOUT  CASE 

In  this  case,  as  the  system  worked  with  the  deletion  of  gates  the  tests  were  done 
once  more  by  deleting  one  gate  at  a  time. 

Table  19  presents  the  results  of  the  tests  for  the  ALU  circuit.  The  first  column  of 
the  table  presents  the  number  of  gates  that  are  being  deleted  from  the  circuit,  with  the 
second  and  third  columns  presenting  the  amount  of  time  needed  for  the  edition  and 
recompilation  of  the  circuit,  respectively.  The  last  column  of  the  table  presents  the 
comparison  (in  %)  between  the  time  for  the  edition  and  the  time  for  recompilation  of 
the  circuit. 

As  we  can  see  the  number  of  outputs  that  can  be  deleted  in  the  circuit  is  almost 
equal  to  6%  of  the  number  of  gates  that  compose  it.  This  result  can  be  considered 
satisfactory  because  is  not  normal  for  a  user  to  delete  a  large  number  of  outputs  in  the 
circuit  in  one  change. 

Table  20  presents  the  results  of  the  tests  done  with  the  TEST  circuit  for  the 
delete  output  case.  This  table  has  the  same  format  as  the  table  presented  for  the  ALU 
circuit. 


edit 

time 

min  sec 


compilation 
time 
min  sec 


ratio 

% 

21.  64 


gates 

deleted 


00  59.53 


04  35.07 


2 

01  31.  61 

04  33.58 

33.  49 

3 

02  04.  14 

04  32.31 

45.  59 

4 

02  35.  91 

04  30.  58 

57.  62 

5 

03  07. 63 

04  28.97 

69.  76 

6 

03  38.44 

04  27.02 

81.  81 

7 

04  09.36 

04  25.65 

93.  87 

TABLE  20 

THE  DELOUT  CASE 
FOR  THE  TEST  CIRCUIT 


gates 

deleted 


edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

00  24.  00 

00  42.26 

56.  79 

00  28.97 

00  41.33 

70.  09 

00  35.21 

00  39. 67 

88.  76 

The  TEST  case  is  better  than  the  ALU  case,  because  in  the  time  needed  for  the 
recompilation  of  the  circuit  we  can  delete  almost  22%  of  the  gates  of  the  circuit. 

J.  THE  ALTGATE  CASE 

This  case  has  practically  the  same  function  as  the  ALTDEL  case,  with  the  only 
difference  that  this  case  works  with  the  general  gates  of  the  circuit,  instead  of  the 
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variables  of  the  circuit.  As  a  consequence,  the  results  obtained  in  these  tests  are  almost 
the  same  of  the  ALTDEL  case,  and,  because  of  this  the  results  will  not  be  repeated. 


K.  THE  INSINP  CASE 


In  this  case  two  parameters  are  important  in  the  measurement  of  the 
performance  of  the  Editor  program:  how  many  inputs  are  being  inserted  and  how  many 
gates  will  be  replaced  due  to  those  insertions.  The  measurement  of  the  performance  of 
the  program  in  this  case  was  done  by  comparing  the  amount  of  time  needed  by  the 
Editor  program  to  modify  the  circuit  and  the  time  needed  by  the  recompilation  of  the 


circuit. 


Table  21  presents  the  result  of  the  tests  for  the  ALU  circuit.  The  table  is 
basically  the  same  as  the  insert  case  with  the  gates  inserted  column  replaced  by  the 
inputs  inserted  column. 


The  Editor  program  allows  1  input  to  be  inserted  and  8  gates  to  be  replaced  or  7 
inputs  to  be  inserted  and  2  gates  to  be  replaced  in  an  amount  of  time  lower  than  the 
time  needed  by  the  compiler  program  to  recompile  the  entire  circuit.  These  values 
could  be  considered  very  good,  because  we  are  modifying  more  than  5%  of  the  number 
of  gates  in  the  system  in  a  time  lower  than  the  compilation  time. 

Table  21  does  not  have  the  results  of  the  tests  for  the  insertion  of  7  inputs  and 
the  modification  of  1  gate.  This  test  was  not  done  because  in  the  actual  situation  of  the 
system,  there  are  no  primitive  with  7  inputs  and,  consequently,  it  is  impossible  that  7 
inputs  be  inserted  in  the  system  with  only  I  gate  being  modified.  When  7  inputs  are 
inserted  in  the  circuit  at  least  2  other  gates  need  to  be  modified,  and  this  is  the  reason 
that  the  test  for  7  inputs  and  I  gate  was  not  studied. 

Table  22  presents  the  result  of  the  tests  for  the  TEST  circuit.  The  table  format  is 
the  same  of  the  ALU  case. 

In  this  case  the  Editor  program  allows  that  I  input  be  inserted  and  6  gates 
modified  or  5  inputs  be  inserted  and  1  gate  modified  in  an  amount  of  time  lower  than 
the  time  needed  to  recompile  the  entire  circuit.  This  is  a  reasonable  result  because  we 
are  modifying  almost  50%  of  the  number  of  gates  in  the  circuit  in  a  time  lower  than 
the  time  to  recompile  the  entire  circuit. 


THE  INSINPG  CASE 


Three  parameters  are  important  in  the  measurement  of  the  performance  of  the 
Editor  program:  the  number  of  inputs  being  inserted,  the  number  of  gates  being 


TABLE  21 


THE  INSINP  CASE 
FOR  THE  ALU  CIRCUIT 


input  gates 
inserted  replaced 


edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

01  16.46 

04  35.80 

27.  72 

01  43.31 

04  35.80 

37.  46 

02  08. 32 

04  35.80 

46.  53 

02  34.49 

04  35.80 

56.  02 

03  00.83 

04  35.80 

65.  57 

03  26.  75 

04  35.80 

74.  96 

03  52.66 

04  35.80 

84.  36 

04  18.59 

04  35.80 

93.  76 

01  43.20 

04  36.24 

37.  36 

02  09.20 

04  36.24 

46.  77 

02  33.16 

04  36.24 

55.  44 

02  58.  14 

04  36.24 

64.  49 

03  22.97 

04  36.24 

73.  48 

03  47.99 

04  36.24 

82.  53 

04  12.90 

04  36.24 

91.  55 

02  08.  55 

04  37.09 

46.  40 

02  34.  57 

04  37.  09 

55.  78 

02  59. 73 

04  37.09 

64.  86 

03  25.58 

04  37.09 

74.  19 

03  51.59 

04  37.09 

83.  58 

04  17.31 

04  37.09 

92.  86 

02  33. 61 

04  37.51 

55.  35 

TABLE  21 

THE  INSINP  CASE  (CONT'D.) 


input 

inserted 

gates 

replaced 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

4 

2 

03  00.  03 

04  37.51 

64.  87 

4 

3 

03  26.26 

04  37.51 

74.  33 

4 

4 

03  52.92 

04  37.51 

83.  93 

4 

5 

04  19.81 

04  37.51 

93.  62 

5 

1 

03  00. 15 

04  37.99 

64.  80 

5 

2 

03  26.  38 

04  37.  99 

74.  24 

5 

3 

03  53.  49 

04  37.99 

83.  99 

5 

4 

04  20.  42 

04  37.99 

93.  68 

6 

1 

03  27.  49 

04  38.48 

74.  51 

6 

2 

03  55.00 

04  38.48 

84.  39 

6 

3 

04  12.21 

04  38.48 

90.  57 

7 

2 

04  23.65 

04  39.04 

94.  48 

inserted,  and  the  number  of  gates  being  replaced  due  to  those  insertions.  The 
measurement  of  the  performance  of  the  program  in  this  case  was  done  by  comparing 
the  amount  of  time  needed  for  the  Editor  program  to  modify  the  circuit  and  the  time 
needed  for  the  recompilation  of  the  circuit. 

Table  23  presents  the  results  of  the  tests  for  the  ALU  circuit.  The  table  is 
basically  the  same  of  the  insen  input  case,  with  the  insertion  of  one  more  column  for 
the  presentation  of  the  number  of  gates  inserted  in  the  circuit. 

By  the  results  presented  in  the  table  we  can  see  that  the  Editor  program  allows 
an  insertion  of  a  great  number  of  inputs  and  gates  in  the  circuit.  The  tests  that  were 
done  did  not  cover  all  the  possible  insertions  that  could  be  done  in  the  circuit  in  a  time 
lower  than  the  time  necessary  for  recompilation  of  the  circuit,  but  we  can  see  by  the 
results  that  we  are  modifying  a  number  of  variables  that  is  almost  equal  to  6%  of  the 
number  of  gates  in  the  circuit.. 


input 

inserted 

gates 

replaced 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

1 

1 

00  24.  35 

00  43. 13 

56.  46 

1 

2 

00  27. 83 

00  43. 13 

64.  53 

1 

3 

00  31.52 

00  43. 13 

73.  08 

1 

4 

00  35.  33 

00  43. 13 

81.  92 

1 

5 

00  39. 18 

00  43. 13 

90.  84 

1 

6 

00  43.08 

00  43. 13 

99.  88 

2 

1 

00  28.  78 

00  44.  03 

65.  36 

2 

2 

00  30.82 

00  44. 03 

70.  00 

2 

3 

00  35.28 

00  44.03 

80.  13 

2 

4 

00  39.43 

00  44.03 

89.  55 

2 

5 

00  43. 64 

00  44.03 

99.  11 

3 

1 

00  33.21 

00  44.  98 

73.  83 

3 

2 

00  37. 39 

00  44.98 

83.  13 

3 

3 

00  41.84 

00  44.  98 

93.  02 

4 

1 

00  37.  83 

00  45. 90 

82.  42 

4 

2 

00  42. 25 

00  45.  90 

92.  05 

5 


00  42. 68 


00  46. 82 


91.  16 


0.1 

v* 

»Y 


m 


input  gates  gates 


edit 

time 

min  sec 

compil. 

time 

min  sec 

ratio 

% 

01  50.  78 

04  39.  74 

39.  60 

02  15.65 

04  39.74 

48.  49 

11X1!E9E3^310 

57.  34 

03  05.52 

04  39.  74 

66.  32 

03  30.97 

04  39.  74 

75.  42 

03  56.  29 

04  39.  74 

84.  47 

04  21.47 

04  39.  74 

93.  47 

02  21.  19 

04  42.08 

_ 

50.  05 

02  47. 79 

03  13.83 

04  42.08 

68.  71 

03  39.82 

04  42.08 

77.  93 

04  05.94 

04  42.08 

87.  19 

04  31.96 

04  42.08 

96.  41 

02  53.96 

.. 

04  44.  52 

61.  14 

03  21.45 

04  44. 52 

70.  80 

03  47. 12 

04  44. 52 

79.  83 

04  12. 70 

04  44.  52 

88.  82 

04  38.  01 

04  44. 52 

97.  71 

03  29.08 

04  45.  80 

73.  16 

81.  61 

04  21.25 

04  45.  80 

91.  41 

04  05.23 

04  47.  14 

85.  40 

04  31.  94 

TABLE  23 

THE  INSINPG  CASE  (CONT'D.) 


input  gates  gates  ed 
inserted  inserted  replaced  ti; 

min 


pil. 

me 

sec 


1 

02  52.08 

1 

03  10.47 

04  41.  94  04  48.  62 


02  16. 82  04  40. 39 


02  40. 77  04  40. 39 


03  06.  44  04  40.  39 


03  32. 26  04  40. 39 


03  58.  14  04  40.  39 


04  23.94  04  40.39 


02  46.68  04  42.72 


03  13. 56  04  42. 72 


03  39. 04  04  42. 72 


04  05. 26  04  42.  72 


04  32. 11  04  42. 72 


03  16. 83  04  45. 15 


03  43.  04  04  45. 15 


04  02.  31  04  45.  15 


04  31.  87  04  45.  15 


02  34.97  04  41.07 


04  41.  72 


04  42. 40 


ratio 

% 


97.  69 


48.  80 


57.  34 


66.  49 


75.  70 


84.  93 


94.  13 


58.  96 


68.  46 


77.  48 


86.  75 


96.  25 


69.  03 


78.  22 


84.  98 


95.  34 


55.  14 


61.  08 


67.  45 


M.  THE  DELINP  CASE 

In  this  case  two  parameters  are  important  in  the  measurement  of  the 
performance  of  the  Editor  program:  how  many  inputs  are  being  deleted  and  how  many 
gates  will  be  replaced  due  to  those  deletions.  The  measurement  of  the  performance  of 
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TABLE  24 

THE  INSINPG  CASE 
FOR  THE  TES'i  CIRCUIT 


input 

gates 

gates 

edit 

inserted 

inserted 

replaced 

time 

min  sec 

00 

29.  57 

00 

32.  30 

00 

34.  85 

00 

37.  42 

00 

40.  15 

00 

42.  85 

00 

34.  89 

00 

38.  11 

00 

41.  08 

00 

44.  13 

00 

39.  21 

00 

42.  17 

00 

45.  32 

00 

44.  61 

00 

32.  78 

00 

35.  42 

00 

38.  09 

00 

41.28 

00 

38.  21 

00 

41.  19 

00 

44.  65 

00 

43.  02 

pil. 

ratio 

me 

sec 

% 

00  45.22 


00  45.22 


00  45. 22 


00  45.22 


00  45.22 


00  45.22 


00  45. 85 


00  45. 85 


00  45. 85 


00  45.85 


00  46.  17 


00  46.  17 


00  46.  17 


00  46.  55 


00  46.  16 


00  46.  16 


00  46. 16 


00  46. 16 


65.  39 


71.  43 


77.  07 


82.  75 


88.  79 


94.  76 


76.  10 


83.  12 


89.  60 


96.  25 


84.  93 


91.  34 


98.  16 


95.  83 


71.  01 


76.  73 


82.  52 


89.  43 


TABLE  24 

THE  INSINPG  CASE  (CONT'D.) 


input 

inserted 

gates 

inserted 

gates 

replaced 

edit 

time 

min  sec 

compil. 

time 

min  sec 

ratio 

% 

2 

3 

2 

00  46.  57 

00  47.99 

97.  04 

3 

i 

1 

00  36.  15 

00  46.  91 

77.  06 

4 

1 

1 

. 

00  41.25 

00  47. 65 

86.  57 

the  program  in  this  case  was  done  by  comparing  the  amount  of  time  needed  by  the 
Editor  program  to  modify  the  circuit  and  the  time  needed  by  the  recompilation  of  the 
circuit. 

Table  25  presents  the  result  of  the  tests  for  the  ALU  circuit.  The  table  is 
basically  the  same  of  the  insert  case  with  the  gates  inserted  column  replaced  by  the 
inputs  deleted  column. 

As  we  can  see  the  Editor  program  allows  that  1  input  be  deleted  and  8  gates  be 
replaced  or  7  inputs  be  deleted  and  2  gates  be  replaced  in  a  time  lower  than  the  time 
needed  by  the  compiler  to  recompile  the  entire  circuit. 

Table  26  presents  the  result  of  the  tests  for  the  TEST  circuit.  The  table  format  is 
the  same  of  the  ALU  case. 

In  this  case  the  Editor  program  allows  1  input  to  be  deleted  and  5  gates  to  be 
modified  or  3  inputs  to  be  deleted  and  2  gates  to  be  modified  in  an  amount  of  time 
lower  than  the  time  needed  to  recompile  the  entire  circuit.  This  is  a  reasonable  result 
because  we  are  modifying  almost  35%  of  the  number  of  gates  in  the  circuit  in  a  time 
lower  .han  the  time  to  recompile  the  entire  circuit. 

N.  THE  DELINPG  CASE 

In  this  case  three  parameters  are  important  in  the  measurement  of  the 
performance  of  the  Editor  program:  the  number  of  inputs  being  deleted,  the  number  of 
gates  being  deleted,  and  the  number  of  gates  to  be  replaced  due  to  those  deletions.  The 
measurement  of  the  performance  of  the  program  in  this  case  was  done  by  comparing 
the  amount  of  time  needed  by  the  Editor  program  to  modify  the  circuit  and  the  time 
needed  for  the  recompilation  of  the  circuit. 


TABLE  25 


THE  DELINP  CASE 
FOR  THE  ALU  CIRCUIT 


input 

deleted 

gates 

replaced 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

1 

1 

01  18.  33 

04  35.21 

28.  46 

1 

2 

01  41.  62 

04  35.21 

36.  92 

1 

3 

02  08.21 

04  35.21 

46.  51 

1 

4 

02  33. 77 

04  35.21 

55.  87 

1 

5 

02  59. 61 

04  35.21 

65.  26 

1 

6 

03  25.  17 

04  35.21 

74.  55 

1 

7 

03  51.  93 

04  35.21 

84.  27 

1 

8 

04  17. 72 

04  35.21 

93.  64 

2 

1 

01  43.47 

04  34.  83 

37.  65 

2 

2 

02  07.92 

04  34.83 

46.  55 

2 

3 

02  34.92 

04  34.83 

56.  37 

2 

4 

03  01.31 

04  34.83 

65.  97 

2 

5 

03  26.  99 

04  34.83 

75.  32 

2 

6 

03  51.  33 

04  34.  83 

84.  17 

2 

7 

04  16.  46 

04  34.  83 

93.  32 

3 

1 

02  07.84 

04  33.  98 

46.  66 

3 

2 

02  33. 15 

04  33.  98 

55.  90 

3 

3 

03  00.  01 

04  33.  98 

65.  70 

3 

4 

03  26.  16 

04  33.  98 

75.  25 

3 

5 

03  52.79 

04  33.98 

84.  97 

3 

6 

04  15.  12 

04  33.98 

93.  12 

4 

1 

02  35. 16 

04  33.  11 

56.  81 

TABLE  25 

THE  DELINP  CASE  (CONT'D.) 


input 

deleted 

gates 

replaced 

edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

4 

2 

03  01. 80 

04  33. 11 

66.  57 

4 

3 

03  27.  45 

04  33.  11 

75.  96 

4 

4 

03  54.  02 

04  33.  11 

85.  69 

4 

5 

04  20.  53 

04  33.  11 

95.  39 

5 

1 

02  59. 12 

04  32.  23 

65.  80 

5 

2 

03  26.  45 

04  32.23 

75.  84 

5 

3 

03  53.01 

04  32.  23 

85.  59 

5 

4 

04  19.  16 

04  32.  23 

95.  20 

6 

1 

03  25. 33 

04  30.  97 

75.  78 

6 

2 

03  51.  72 

04  30.  97 

85.  52 

6 

3 

04  18.  71 

04  30.  97 

95.  48 

7 

2 

04  21.69 

04  29.  75 

97.  01 

Table  27  presents  the  result  of  the  tests  for  the  ALU  circuit.  One  more  column  is 
added  to  allow  the  presentation  of  the  number  of  replacements  of  the  input  (gate) 
inserted  column(s)  by  the  input  (gate)  deleted  column(s). 

By  the  results  presented  in  the  table  we  can  see  that  the  Editor  program  allows 
the  deletion  of  a  great  number  of  inputs  and  gates  in  the  circuit.  The  tests  that  were 
done  did  not  cover  all  the  possible  deletions  that  could  be  done  in  the  circuit  in  a  time 
lower  than  the  time  necessary  for  recompilation  of  the  circuit,  but  we  can  see  by  the 
results  that  we  are  modifying  a  number  of  variables  that  is  almost  equal  to  6%  of  the 
number  of  gates  of  the  circuit. 

Table  28  presents  the  results  obtained  in  the  delete  input  and  gate  case  for  the 
TEST  circuit.  The  table  has  the  same  format  as  the  ALU  table. 


TABLE  26 


THE  DELINP  CASE 
FOR  THE  TEST  CIRCUIT 


input  gates 
deleted  replaced 


edit 

time 

min  sec 

compilation 
time 
min  sec 

ratio 

% 

00  25.  16 

00  42. 36 

59.  40 

00  29.  78 

00  42.36 

70.  30 

00  32. 67 

00  42. 36 

77.  12 

00  35. 98 

00  42.36 

84.  94 

00  40.51 

00  42. 36 

95.  63 

00  30.  43 

00  41.85 

72.  71 

00  34.99 

00  41.85 

83.  61 

00  39.  00 

00  41.85 

93.  19 

00  35.23 

00  40. 12 

87.  81 

00  39.89 

00  40.12 

99.  43 

TABLE  27 

THE  DELINPG  CASE 
FOR  THE  ALU  CIRCUIT 


input 

gates 

gates 

edit 

deleted 

deleted 

replaced 

time 

min  sec 

01 

58.  67 

02 

22.  03 

03 

14.  45 

03 

39.  72 

04 

05.  33 

04 

30.  86 

02 

46.  31 

03 

01.  13 

03 

25.  72 

03 

50.  21 

04 

16.  73 

02 

56.  12 

03 

47.  89 

04 

13.  05 

03 

29.  31 

03 

56.  11 

04 

22.  42 

04 

06.  03 

02 

16.  35 

02 

41.  26 

n? luSH 

ratio 

% 

04  33.  91 

43.  32 

04  33.91 

51.  85 

61.  71 

04  33.91 

70.  99 

04  33.91 

80.  22 

04  33.  91 

98.  89 

04  32.02 

61.  14 

04  32. 02 

66.  59 

04  32.02 

75.  63 

04  32.02 

84.  63 

04  32.02 

94.  38 

04  30.87 

65.  02 

74.  53 

04  30.87 

84.  13 

04  30.87 

93.  42 

04  28.  71 

77.  89 

04  28.  71 

87.  87 

04  28.  71 

97.  66 

04  27.  67 

91.  92 

TABLE  27 

THE  DELINPG  CASE  (CONT'D.) 


edit 

time 

min  sec 

CO 

t 

min 

1 

pil. 

me 

sec 

ratio 

% 

03  33.08 

04 

32.  83 

78.  10 

03  59.23 

04 

32.  83 

87.  68 

04  25.21 

04 

32.  83 

97.  21 

02  49.24 

04 

30.  85 

62.  48 

03  13.51 

04 

30.  85 

71.  45 

03  40.01 

04 

30.  85 

81.23 

04  06.41 

04 

30.  85 

90.98 

03  17.51 

04 

29.38 

73.  32 

03  44.65 

04 

29.  38 

83.  40 

04  03.93 

04 

29.  38 

90.  55 

02  36.49 

04 

30.  72 

57.  81 

02  54.  05 

04 

29.29 

64.  63 

03  11.93 

04 

27.  94 

71.  63 

TABLE  28 

THE  DELINPG  CASE 
FOR  THE  TEST  CIRCUIT 


input 

deleted 

gates 

deleted 

gates 

replaced 

mi 

compil. 

time 

min  sec 

ratio 

% 

1 

1 

X 

00  28.  71 

00  41. 85 

68.  60 

1 

1 

2 

00  31.  94 

00  41.85 

76.  32 

1 

1 

3 

00  35. 16 

00  41.85 

84.  01 

1 

1 

4 

00  38. 73 

00  41.85 

92.  54 

1 

2 

1 

00  34.92 

00  39.98 

87.  34 

1 

2 

2 

00  38.45 

00  39.98 

96.  17 

2 

1 

1 

00  32.88 

00  40.01 

82.  18 

2 

1 

2 

00  35.73 

00  40.01 

89.  30 

2 

1 

3 

00  38.  81 

00  40.01 

97.  00 

2 

2 

1 

00  38.  31 

00  38.  75 

98.  86 
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VI.  RECOMMENDATIONS,  FURTHER  WORK  AND  CONCLUSIONS 


I 

$ 


i 


A.  RECOMMENDATIONS 


The  Editor  program  and  the  compiler  program  were  written  in  a  way  that  tries  to 
make  them  as  general  as  possible.  However,  due  to  the  possibility  that  the  number  of 
gates  supported  by  the  system  might  be  increased,  some  attention  need  to  be  given  to 
the  maintenance  of  both  programs.  Also  the  user  needs  to  remember  some  points 
when  trying  to  use  the  compiler  or  editor  program  to  simulate  some  digital  circuit. 

The  first  point  to  be  remembered  is  about  the  usage  of  submodules  in  the 
description  of  the  circuit.  When  the  user  defines  a  circuit  by  using  submodules,  the 
compiler  program  takes  those  submodules  and  expands  them  into  lower  levels  to  allow 
the  usage  of  gates  that  are  already  described  in  the  library  of  the  system.  When  the 
system  does  this  expansion  it  loses  track  of  the  submodules  that  were  defined  by  the 
user.  If,  after  the  compilation,  the  user  tries  to  edit  this  circuit  he/she  cannot  use  the 
submodules  that  were  described  before  because  the  program  will  not  be  able  to  find 
them.  Instead,  the  user  needs  to  define  the  modifications  by  using  the  definition  of 
gates  in  the  system  after  the  expansion.  To  do  the  description  in  this  way  the  user 
needs  to  verify  how  each  variable  was  defined  by  using  the  SYMT  table,  DESCT  table 
and  INI  table  that  were  built  by  the  system  and  saved  in  the  user  disk  as  files  with  the 
extensions  STB,  DCT  and  INI,  respectively. 

Another  point  where  the  user  needs  to  be  careful  when  using  the  MultiSim 
package  is  the  insertion  of  gates  or  user  defined  primitives  in  the  library  of  the  system. 
One  of  the  enhancements  done  in  the  system  by  Kelly  was  the  insertion  of  the 
ADSTRUC  command  in  the  system(  [Ref.  8]  ).  This  command  will  allow  the  user  to 
insert  any  circuit  in  the  library  as  a  user  defined  circuit,  but  this  insertion  will  not  allow 
the  use  of  this  circuit  as  a  primitive  from  the  library  in  the  Editor  program,  because  the 
only  part  that  was  added  to  the  system  was  the  structural  description  of  the  circuit.  In 
this  case  when  the  user  uses  the  new  circuit  in  the  description  of  a  higher  level  circuit, 
the  compiler  will  not  use  the  inserted  circuit  as  a  primitive  and  will  expand  it,  to  use 
the  characteristics  of  the  lower  level  circuits  that  compose  it.  Because  of  this  expansion 
the  same  problem  that  was  described  in  the  previous  paragraph  will  happen,  and  the 
system  will  loose  track  of  this  new  primitive,  and  the  user  cannot  use  it  in  the  Editor 


program.  The  only  possibility  for  the  use  of  a  user  defined  primitive  in  the  system 
without  any  restriction  is  the  ADD  LIB  command  (not  implemented  yet),  that  inserts 
not  only  the  structural  description  but  also  the  block  description  of  the  circuit,  and  this 
is  the  way  that  the  primitives  need  to  be  described  to  be  used  without  problems. 

Because,  until  now,  all  the  primitives  that  were  defined  in  the  system  had  6  or 
less  inputs  the  programs  were  prepared  to  work  with  gates  (or  circuits)  that  have  up  to 
10  inputs.  To  allow  for  a  gate  with  a  greater  number  of  inputs  to  be  supported  by  the 
system,  the  following  modifications  need  to  be  made  to  the  programs: 

1.  In  all  the  programs  the  description  of  the  structure  of  the  INI  table  needs  to  be 
modified.  This  definition  appears  in  the  declaration  STRUCT  INP_NAME  and 
the  modification  that  needs  to  be  done  is  the  insertion  of  the  room  to  allow  a 
greater  number  of  inputs  in  the  table.  This  insertion  needs  to  be  done  after  the 
INP10{8]  part  of  the  description  by  putting  the  declaration  CHAR  INP11[8], 
INP12[8],  until  there  is  room  for  all  the  inputs  be  placed  in  the  table. 

2.  Since  a  great  number  of  inputs  could  appear  in  the  table  the  CKT  subroutine  in 
the  CADD  program  (Appendix  A)  needs  to  be  modified  to  work  with  the  new 
number  of  inputs.  This  modification  needs  to  be  done  in  the  part  of  the 
subroutine  that  fills  the  places  of  the  INI  table  when  the  compiler  reads  the 
description  of  the  gate. 

3.  In  the  compiler  program  and  in  the  editor  program  the  segments  of  code  that 
copy  the  INI  table  to  a  file  and  vice-versa  need  to  be  modified  to  allow  a  copy 
of  a  table  with  more  elements.  Those  parts  are  in  the  end  of  the  main  routine  in 
the  compiler  program  (Appendix  A)  and  in  the  beginning  and  in  the  end  of  the 
main  routine  of  the  editor  program  (Appendix  D). 

4.  The  MDFYFAN  subroutine  of  the  editor  program  (Appendix  D)  needs  to  be 
modified  to  allow  the  update  of  the  fanload  when  the  system  works  with  gates 
with  more  than  10  inputs. 

5.  The  DELGATE  subroutine  of  the  editor  program  (Appendix  D)  needs  to  be 
modified  to  allow  the  deletion  and  use  of  gates  with  more  than  6  inputs. 

6.  The  IDINP  subroutine  of  the  PRCMP1  routines  (Appendix  E)  needs  to  be 
modified  for  the  same  reason  that  the  CKT  subroutine  was  modified  in  the 
compiler  program. 

The  points  that  were  presented  in  this  section  are  very  important  because  if  they 
were  not  followed  as  presented  the  system  will  have  problems  in  the  future. 

B.  FURTHER  WORK 

Even  with  the  great  improvements  done  to  the  MultiSimPC  package  with  the 
insertion  of  the  Editor  program,  there  are  other  improvements  which  could  be  made  in 
the  system. 


The  first  improvement  that  needs  to  be  made  is  the  communications  between  the 
user  and  the  MultiSimPC.  At  this  stage  we  cannot  consider  the  system  to  be  user 
friendly,  since  the  user  needs  to  write  two  or  more  files,  depending  of  the  work  that 
he/she  wants  to  do  and  also  the  user  needs  to  know  all  the  VOHL  syntax  to  describe 
the  circuits  for  compilation  and  editing.  To  improve  the  way  that  the  system  will  be 
used  the  system  should  be  made  into  an  interactive  program,  where  the  user  calls  a 
program  and  the  program  asks  him/her  about  the  possible  things  that  can  be  done  with 
the  program  and  the  user  selects  the  segment  that  he/she  wants.  All  the  information 
that  the  computer  needs  to  perform  the  job  will  be  asked  of  the  user  by  the  computer. 
This  is  not  a  very  difficult  problem  and  was  not  implemented  only  because  of  the  time 
requi.  ’  for  preparation  of  this  thesis.  However,  this  could  be  a  great  improvement  in 
the  system  because  the  user  will  not  need  to  know  the  syntax  and  the  meaning  of  the 
several  commands  and  will  no  longer  need  to  write  the  files  necessary  for  the 
implementation  of  the  circuit. 

Another  improvement  that  can  be  done  in  the  system  is  the  insertion  of  the 
command  ADDLIB  in  the  system.  As  was  explained  before,  the  insertion  of  this 
command  will  allow  the  insertion  of  user  defined  primitives  in  the  library  of  the  system 
without  any  restriction  with  respect  to  the  Editor  program.  In  the  [Ref.  9]  Kelly 
presented  all  the  directives  to  the  insertion  for  the  ADBLOCK  command  that  will 
insert  the  block  description  of  the  primitive  in  the  system.  If  the  ADBLOCK  command 
was  implemented,  the  operations  that  are  performed  in  it  can  be  joined  with  the 
operations  done  in  the  ADSTRUC  command  to  generate  the  ADLIB  command. 

Another  point  that  needs  to  be  considered  in  the  system  is  the  design  of  a 
graphic  capability  to  take  the  circuits  presented  in  the  VOHL  syntax  and  display  them 
in  graphic  form  in  the  screen.  This  will  certainly  be  a  very  difficult  challenge  to  execute 
but  when  ready  it  will  greatly  improve  the  versatility  of  the  MultiSimPC  package.  A 
possible  solution  for  this  improvement  was  presented  by  Kelly  in  the  (  [Ref.  9] ). 

C.  CONCLUSIONS 

The  results  of  the  tests  performed  on  the  different  circuits  shows  that  the  Editor 
program  could  be  a  very  good  help  in  the  debugging  of  digital  circuits.  As  we  can  see 
in  the  various  tables  presented  in  the  last  chapter,  the  program  had  good  results  in 
each  of  the  cases  that  it  was  designed  to  work  with. 

The  results  presented  in  that  chapter  can  not  be  taken  as  a  base  for  the  time  that 
the  system  expends  to  modify  a  circuit  with  a  specific  number  of  gates.  In  general  we 
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cannot  say  that  this  program  will  not  be  advantageous  to  replace  10  gates  in  a  circuit 
with  142  gates  just  because  in  the  ALU  circuit  the  time  to  do  this  replacement  with  the 
editor  program  was  greater  than  the  time  needed  for  recompilation.  This  time  will  vary 
from  one  circuit  to  another  as  a  function  of  the  different  characteristics  that  are 
inserted  in  the  circuit.  Even  the  same  circuit  could  produce  significant  differences 
between  the  times  for  edition.  Suppose  that  we  have  a  circuit  with  142  gates  where  130 
of  them  are  already  initialized.  Suppose  now  that  we  want  to  replace  a  gate  in  this 
circuit,  but  the  output  of  this  gate  was  not  initialized.  In  this  case  the  system  will  not 
need  to  work  with  the  initialization  file,  since  that  variable  did  not  appear  in  it,  and 
consequently  it  will  need  less  time  than  the  case  where  we  want  to  replace  a  gate  that  is 
already  initialized  and  will  need  more  work  to  complete  the  command. 

The  tests  that  were  realized  show  the  correct  time  for  edition  in  the  ALU  and 
TEST  circuits  only  when  they  present  the  characteristics  (initial  values,  modified  delays 
and  printouts)  that  appear  in  the  original  description  of  the  circuits  (Appendix  H  and 
Figure  1.2,  respectively).  A  modification  in  any  of  those  characteristics  can  drastically 
modify  both  the  time  for  compilation  and  the  time  for  the  edition  of  the  circuit. 

However,  the  important  point  is  that  the  Editor  program  has  the  goal  of  help  the 
debugging  of  the  design  of  digital  circuits.  After  a  circuit  is  designed  and  tested  the 
normal  debugging  is  done  by  making  small  changes  in  the  circuit  and  verifying  the 
effects  of  those  changes  in  the  behavior  of  the  circuit.  In  this  way  the  Editor  program 
fulfil  its  function,  because  for  small  changes  it  always  has  a  better  performance  than 
the  compiler  program. 


APPENDIX  A 
THE  CADD  PROGRAM 


/* ****** *************** ******* ****** ********************** ****** ** 
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Parsing  and  Code  Generation  Program 
for  the 

Multilevel  Simulator 
VERSION  3.1,  14  Apr  1987. 

Original  version  Developed  under  UNIX  on  the  VAX  11/780 
by  Dr.  Ausif  Mahmood  at  Washington  State  University. 
Library  addition  routines,  MSDOS,  PCDOS  and  AmigaDOS 
versions  by  Scott  Kelly  at  Naval  Postgraduate  School. 
Modifications  for  Edition  by  Julio  Cesar  Lopes  de 
Albuquerque  at  Naval  Postgraduate  School. 
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int  _mlen  =  500; 
int  mem [500]  ; 

ttinclude  “\lc\stdio.h"  /*<stdio.h>  in  DOS  3.x  environment  */ 


/*  This  is  the  parsing  and  code  generation  (inter-connection  list*/ 
/*  of  descriptors  for  the  user  circuit)  program.  It  also  produces*/ 
/*  the  corresponding  symbol  table  for  printing  outputs.  Recursive*/ 
/*  descent  parsing  scheme  is  used.  Syntax  directed  translation*/ 
/*  (SDT)  scheme  is  used  for  code  generation.  */ 


#define  maxkey  29 
#define  maxsym  250 

#define  maxprim  100 
#define  maxouts  32 
^define  maxnorm  50 


/*  maximum  number  of  keywords  */ 
/*  symbol  table  size  */ 
/*  1000  size  in  UNIX  */ 
/*  maximum  number  of  primitives  */ 
/*  maximum  of  32  outputs  per  prim.  */ 
/*  normload  table  size  */ 


/* . - . 

int  strcpyO  ; 
extern  int  primsetup(); 
extern  int  build(); 
extern  int  uexpand(); 


GLOBAL  DE  CL ARAT IONS' 


extern  int 
extern  int 
extern  int 


struc_expand{) ; 
append () ; 
countcells( ) ; 


extern  int 
extern  int 
extern 
int 

int  getid‘0' 
int  find_token()  ; 

extern  int  swap(); 
int  COMPILE () 
int  ADD( ' 
int  MOD 
int  INP 
int  OUT 
int  TYP 
int  IDS 
int  CKT( ) 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 
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check_deeper ( ) ; 
checktable() ; 
rn  int  perform_expansion( ) ; 

strcmpO  ;  /* 

'r '  /  * 

/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


copies  one  string  to  another  */ 
external  module  to  name  the  prims  */ 
creates  a  MULTIMOD  file  for  STRUC  */ 
prints  system-generated  expansion  */ 
requests  */ 

checks  to  see  if  extended  primitive  */ 
descriptions  need  to  be  added  */ 
appends  structural  descriptions  to  */ 
the  MULTIMOD  file  if  called  for 
counts  the  number  of  MODULES  in 
the  user  program 
recursive  expansion  routine 
checks  if  primitive  in  expand  table*/ 
/*  routine  that  performs  expands  */ 


*/ 

*/ 

*/ 

V 


ING( ) 


string  comparison 
get  next  identifier  */ 

returns  the  token  number  */ 

(keyword  table  index)  */ 

performs  function  substitutions 

?  arsing  routine  for  1  MOD.  */ 

ests  for  a  request  to  add  cells 
MODULE  parsing  routine  */ 

INPUTS  parsing  routine  */ 

OUTPUTS  parsing  routine  */ 

TYPES  parsing  routine  */ 

1  i  nareinrt 


*/ 

*/ 

*/ 


list  of  id's  parsing 


/ 


ckt.  inter-connection  parsing*/ 


int  DEFQ  ; 

int  INI()  ; 

int  PRI ( )  ; 

extern  int  add_lib(); 

int  rfdelO  ; 

int  bdread()  ; 

int  cmode ( )  ; 

int  matgenQ  ; 

int  parseid()  ; 

int  f indid()  .* 

int  finddescQ  ; 

int  updesct()  ; 

int  findprimQ  ; 
int  update ()  ; 
int  connect ()  ; 


int  code_input()  ; 

int  errmessageQ  ; 
int  outerrorO  ; 
int  error ()  ; 
int  firstpO  ; 
int  secondp ( )  ; 
int  pdelim()  ; 

int  ftype()  • 
int  reverse ()  ; 
int  fcopy()  ; 
int  copy  noend(); 
int  itoa()  ; 
int  cexpand( )  ; 
int  substitute ()  ; 
int  foutorder()  ; 
int  f inorder ()  ; 
int  ckt_line ( )  ; 
int  search ()  ; 
int  tack()  ; 
int  multi_mod()  ; 
int  f advance ( )  ; 
int  hashf ( )  ; 
int  test(); 

/* _ ILL _ 


/*  DEFINE  parsing  routine  */ 

/*  INITIALIZE  parsing  routine  */ 

/*  PRINTOUT  parsing  routine  */ 

/*  adds  primitives  to  library  */ 

/*  rise/fall  delay  handling  */ 

/*  block  delay  reading  routine  */ 

/*  code  generation  for  mode  */ 

/*  delay  matrix  and  mode  gen.  */ 

/*  single  id  parsing  */ 

/*  finds  symbol  table  index  */ 

/*  finds  symbol  table  index  for  */ 

/*  the  given  function  name/ type  */ 

/*  updates  the  descriptor  table  */ 

/*  (name  and  symbol  table  index)*/ 

/*  finds  primitive  library  index*/ 

/*  update  symbol  table  */ 

/*  code  gen.  and  fanld  update  */ 

/*  (descriptor  interconnections)*/ 

/*  code  generation  for  INPUTS  */ 

/*  declaration  */ 

/*  error  message  printing  */ 

/*  output  error  message  */ 

/*  error  handling  routine  */ 

/*  first  pass  for  expand  */ 

/*  second  pass  for  expand  */ 

/*  prints  a  file  of  keywords  and  */ 

/*  tokens,  separated  by  delimiters*/ 
/*  finds  type  of  a  identifier  */ 

/*  reverses  a  string  */ 

/*  file  copying  routine  */ 

/*  copies  everything  but  END  token  */ 

/*  integer  to  ASCII  routine  */ 

/*  expands  the  primitive  in  ckt  */ 

/*  substitutes  the  func's  code  */ 

/*  one  to  one  correspondence  for*/ 

/*  actual  and  formal  parameters  */ 

/*  scans  one  line  of  ckt  desc.  */ 

/*  search  a  delimiter  or  toknn  */ 

/*  tacks  a  number  to  an  id  */ 

/*  sub  module  handling  routine  */ 

/*  advances  to  next  line  */ 

/*  converts  input  name  to  number*/ 

/*  tests  for  hash  collisions  */ 


/* . -■ 

struct  sym_tab  { 
char  name [8]  ; 
int  descno,  funcno 


DATA  STRUCTURES . 

/*  symbol  table 


int 

int 

int 


fanld; 

despos,  delpos; 


} 


ini.num,  pri_num; 
int  pri_val; 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


name  =  name  of  id 
descno  =  descriptor  number 
funcno  =  primitive  lib  index 
fanld  =  actual  circuit  load 
despos  =  descriptor  spaces  on  file 
delpos  =  delay  spaces  on  file 
ini_num  =  initialization  order 
pri_num  =  printout  order 
pri_val  =  #  characters  in  variable 


•*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


struct  desc  tab 
char  fun [5]  ; 
int  dnum  ; 


/*  table  containing  function  */ 
/*  names  (type  names)  and  their  */ 
/*  symbol  table  indexes  */ 


struct  norm  tab  { 
char  nom[S]  ; 
int  nmld  ; 

}  ; 


struct  prim_tab  { 


/*  table  containing  function  */ 
/*  names/types  and  associated  */ 
/*  normloaa  declared  in  DEFINE  */ 


*/ 


/*  Primitive  table  : 


char  namf8]  ; 
char  namz[8]  ; 
int  numpar,  outp  ; 
int  normld.  fanout  ; 
int  technology,  over Id 


primitive  table 
EXTENDED  primitive  table 
numpar  =  no.  of  parameters 
for  the  function 
outp  =  #  of  outputs 


struct  err  stack  { 
char  nm[8]  ; 
int  errno  ; 

}  ; 

struct  exp_tab  { 
char  fname[8]  ; 
int  fnum  ; 

}  ; 

struct  namepair  { 
char  e_from{8] ; 
char  e  to [8  ; 

} ; 

struct  swapname  { 
char  sname[8]; 
int  used; 


/*  stack  for  errors  in  one  line 
/*  nm  =  name  of  unexpected  id 
/*  errno  =  error  number 


/*  expand  table 

/*  fnum  =  prim  lib  index 


/*  this  holds  system-generated 
/*  expansion  requests 


/*  each  of  these  nodes  will  contain  a  module  */ 
/*  specified  in  the  USING  parameter  list  */ 
/*  this  indicates  whether  used  or  not  */ 


struct  inp_name  { 
char  iname[8]; 
int  inp_num. 
char  inpl[8  ,  i 
char  inp3  '8  ,  i 
char  inp5  '8  ,  i 
char  inp7  '8  ,  i 
char  inp9[8J,  i 
int  ifin; 

} ; 

struct  tab_del 


inp2[8l ; 
inp4  '8  ; 
inp6  8  ; 
inp8  8 '• 
inplOtS] ; 


int  indx,  dsc_nb; 
int  typ_num ,  num_ipt; 
int  num_opt,  val; 

J; 


/*  holds  all  the  inputs  for  each  gate 
/*  iname  =  name  of  the  variable 
/*  inp  num  =  #  of  inputs  in  the  gate 
/*  inpl  to  inplO  =  inputs  for  the  gate 


/*  ifin  =  termination  of  the  table  */ 

/*  holds  all  the  information  about  the  */ 
/*  gates  that  have  modified  delays  */ 
/*  indx  =»  index  of  the  table  */ 
/*  dsc_nb  =  descriptor  number  */ 
/*  typ_  num  =  type  of  modification  */ 
/*  num_ipt  =  gate's  input  to  be  modified  */ 
/*  num_opt  =  gate's  output  to  be  modified*/ 
/*  val  =  spaces  occupied  in  the  file  */ 


/* - 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 


. STORAGE  ALLOCATION . 

sym_tab  symt(maxsym]  ; 
desc_tab  desct[maxsyml  ; 
norm_tab  nort[maxnorm]  ; 
prim_tab  primt[maxprim] ,  *primptr 


_  tfmaxpi 

err_stack‘  errtp]  ; 
exp_tab  expt[30]  :  /*  max  30  expansion  requests  */ 

swapname  typelistTmaxprim] [81 ;  /*  table  of  module  replacements*/ 

swapname  swaplist[20] L 3] ;  /*  USING  parameter  list  storage  */ 

namepair  reqtable [maxprim] ; 
inp_name  inptab[maxsyml ; 
tab_del  del_tab[100] ; 


/*  max  of  5  errors  per  line 


sym_tab  temporary 


int  req_count; 
int  line_count; 
int  swap_flag; 

extern  int  found_start; 
extern  int  found_end; 
int  s found; 


/*  number  of  system  expand  reqs  */ 
/*  line  index  for  swaplist  */ 
/*  indicates  whether  all  of  this*/ 
/*  is  necessary  or  not  */ 
/*  marks  occurrance  of  SWAPLIN  */ 
/*  marks  occurrance  of  ENDSWAP  */ 


int  adcLflag;  /*  set  if  cell  is  to  be  added  to*/ 

/*  primitive  library  */ 

int  err_ptr  ;  /*  error  table  pointer  (count)  */ 

/*  for  one  line.  */ 

int  matcount  ;  /*  delay  matrix  count  */ 

int  delimiter,  bb,  skip  ;  /*  delimiter  =  delimiter  type  */ 

/*  bb  =  buff[80]  index  (line)  */ 

int  rdmat[maxouts] [maxouts] ,  fdmat [maxouts] [maxouts]  ; 

/*  rise  and  fall  delay  matrices  */ 
int  toknn,  err_count  ;  /*  err_count  =  error  count  */ 

int  desc_no  ,  sym_count,  symid  ;  /*  desc  no  =  desc.  count*/ 

int  dptr,  descia,  lim  ;  /*  descriptor  table  indices  */ 

/*  dptr  =  descriptor  table  cnt  */ 
int  normcount  ;  /*  normtable  count  */ 

int  expcount  ;  /*  expand  table  count  */ 

int  cellcount;  /*  #  of  MODULES  in  user  program  */ 

int  filecount,pct;  /*  poutcount  used  for  debugging  */ 

int  prinpflag;  /*  controls  printing  of  source  */ 

int  print_select;  /*  determines  whether  a  1 )'  causes*/ 

/*  a  linefeed  or  not  (default=no)*/ 
int  prim_count,  primid  ;  /*  prim^count  =  #  of  primitives  */ 

int  sys_prims  ;  /*  number  of  permanent  (system)  */ 

/*  primitives  */ 


int  matcount  ; 

int  delimiter,  bb,  skip 


int  toknn,  err_count  ; 
int  desc_no  ,  sym_coun 
int  dptr,  descia,  lim 

int  normcount  ; 
int  expcount  ; 
int  cellcount; 
int  filecount,pct; 
int  prinpflag; 
int  print_select; 

int  prim_count,  primid 
int  sys_prims  ; 


int  savprim  ; 

int  inpcount , outpcount ; 

int  features [maxprim] (2] 


/*  number  of  inputs  and  outputs  */ 

/*(used  to  add  a  new  primitive)  */ 

/*  first  field  describes  the  type  of  */ 

/*  descriptions  available:  */ 

/*  -1  ->  empty  0  ->  block  only  */ 

/*  1  ->  struc  only  2  ->block  &  struc  */ 

/*  second  field  indicates  primitive  level  */ 


/*  second  field  indicates  p 
int  append_table [maxprim] ;  /*  keeps  track  of  the  funct 
int  append_index;  /*  added  to  the  user  prograi 


ions  we've  */ 


int  expdone;  /*  marks  completi 

int  no_compilation;  /*  used  when  only 

char  token_buf [81 ,  savbuf[8l,  buff [80]  ;  /* 
char  keyword [maxkey] [8]  ;  /*  keyword  table 

char  inch; 

char  instackjmaxouts] [81 .  outstack[maxouts] [ 
char  ini stack [maxouts  [81 ,  outlstack[maxouts 
char  in2stack[maxouts] [8] ,  out2stack [maxouts 


/*  added  to  the  user  program  */ 

/*  marks  completion  of  struc  expansion*/ 

/*  used  when  only  making  library  additions*/ 


*  buff 
e 


/*  in/out  stack  =  inputs/outputs  from  primitive^  definition  in 
/*  library,  inl/outl  =  calling  inputs/outputs  (user  program) 

/*  in2/out2  =  inputs/outputs  of  each  line  in  primitive's  desc. 


primitive ' 


char  typstack [maxouts] [8]  ;/*  types  of  primitive  to  be  expanded 

int  typcount  ; 

int  index,  act  val  ; 

int  indexl {  val  Drt  ; 

int  ord  ini.  orcTpri; 

int  hasEtable[10$J ;  /*  the  hash  table 

int  hashcount;  /*  number  of  items  in  hashtable 

int  inum; 
int  valact  ; 

int  incount  ,  outcount  ; 

int  inlcount,  outlcount,  in2count,  out2count  ; 
int  outorder,  inorder  ; 

int  count  ;  /*  for  printing  on  the  file  */ 

char  savfunc[8],  userprg[8]  ; 

int  ft,  OCCUrance  •  /"  nreuranr*  =  e  nf  tim»«  rail  t -n  * / 


FILE  *rl 
FILE  *r2 
FILE  *r3 
FILE  *r4 
FILE  *wl 
FILE  *tl 
FILE  *lil 
FILE  *sl  : 


/*  occurance  =  #  of  times  call  to  */ 
/*  primitive  to  be  expanded  is  made  */ 


/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 


to  input  data  file  */ 
to  STRUCT  library  */ 
to  modified  STRUC  library  */ 
to  user  STRUC  description  */ 
to  expanded  file  PlEXP  */ 
to  temp  file  */ 
to  library  */ 
to  primitive's  desc.  SCR1  */ 


*de  ; 
*nm  ; 

*jP  ? 

*dp  ; 
*tm  ; 
*ti  ; 
*tc  ; 
*td  ; 
*tp  ; 


/*  pointer  to  expanded  circuit  SCR2  */ 
/*  read  pointer  to  input  data  file  */ 
/*  circuit  description  for  simulator  */ 
/*  symt  table  stored  for  edition  */ 
/*  desct  table  stored  for  edition  */ 
/*  nort  table  stored  for  edition  */ 
/*  input  table  stored  for  edition  */ 
/*  delay  table  of  the  descriptors  */ 
/*  modified  delay  file  for  simulation*/ 
/*  initialization  file  for  simulation*/ 
/*  descriptor  file  for  simulation  */ 
/*  default  delay  file  for  simulation  */ 
/*  printout  file  for  simulation  */ 


/A*********************************** ***************************** 

'  *  * 

*  MAIN  PROGRAM  * 

*  * 

A********************************************************* ******* j 

main(argc,  argv) 
int  argc  ; 
char  *argv[] ; 

int  i ,  j ; 


strcpy(userprg,argv[l] ) ; 
prinpflag  =  0  ; 
filecount  =  0  ; 


inpcount=0; 
outpcount=0  j 

no^compilation=0 ;  /*  always  as 

prmt_select=0;  /*  print  *)' 

req_count=0 ; 
swap_f lag=0 ; 
line_count=0 ; 
hashcount=0 ; 
index  =0: 
indexl  =  0  ; 
for  (i=l?  i<100 ;  i++) 
hashtable[i]  =  -1; 

/* . - . PRIMITIVES  SUPPORTED- 

for  (i  =  0;  i  <  maxprim;  i  =  i  +  1) 

primtfil .normld  =  1  ; 
primt  i  .fanout  =  20  ; 
primt  i'  .technology  =  v.  ; 
primt[i] .overld  =  S  ; 


/*  always  assume  we're  compiling  */ 
/*  print  ' ) 1  without  a  linefeed  */ 


primsetup(&primt[0] ) ; 
sys_prims=prim_count ; 


/*  initialize  primitives  */ 

/*  primcount  may  change,  but  */ 
/*  we  need  a  copy  of  its  */ 
/*  starting  value  */ 


'* . INITIALIZE . 

/*  initialize  SYMT  table 
for  (i  =  0;  i  <  maxsym;  i  =  i  +  1) 

symt Til .fanld  =  0  ; 
symt  i  .descno  =  -1  ; 
symt  i'  .funcno  =  -1  ; 
symt  i  .despos  *  0  ; 
symt  i'  .delpos  =  0  ; 
symt'i  .ini_num  =  0  ; 
symti  .pri_num  =  0  ; 
symt[ij .pri_val  =  0  ; 

/*  initialize  IPT  table 


^  4  *«*«••  *  «"  ^  ^  -  "  «  *  ^  ’  i  .  **.  *  •  •rm  *  •  •*. 


WWW 


& 


•-•VlvlvOv 


for  (i  =  0;  i  <  maxsym;  i++) 

strcpy ( inptab [il  . inpl,"xxx") 
strcpy! inptab 'i'  . inp2,"xxx") 
strcpy (inptab  i  .inp3,"xxx"l 
strcpyt inptab 'i'  .inp4, "xxx" ) 
strcpy ( inptab  i'  . inp5,"xxx") 
strcpy( inptab  i  .inp6,"xxx") 
strcpy( inptab  i'  .inp7,"xxx") 
strcpy! inptab 'i'  .inp8,"xxx" 
strcpy(inptab  i'  .inp9,"xxx") 
strcpy(inptab[i] .inpl0,"xxxf 

for  (i  =  0;  i  <  20  ;  i  =  i  +  1) 
exptfil.fnum  =  -1  ; 
for  ( i=6 ;  i<20 ;  i++) 

Lr^(j=0;  j <8 ;  j++) 

swaplist[i] [j] .used=0; 

}  } 

for  (i=0;  i<maxprim;  i++) 
Lr^(j=0;  j <8 ;  j++) 

typelist[i] [ j] .used=0; 


/*  set  USING  parameter  lists  */ 
/*  to  EMPTY  */ 


/*  set  type  list  to  empty  */ 


/* . 

strcpy ( 
strcpy< 
strcpy< 
strcpy( 
strcpy 
strcpy^ 
strcpy< 
strcpyi 
strcoyl 
strcpy i 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy! 
strcpy i 
strcpy! 
/*—  — 


keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 

keyword 


- KEYWORDS - 

"MODULE")  ; 
"INPUTS")  ; 

"  OUTPUTS  *')  ; 
"TYPES")  ; 

"M  • 

"INITIAL")  ; 
"PRINTOU")  ; 
"INTERNA")  ; 
"DEFINE")  ; 
"RISEDEL" )  ; 
"FALLDEL")  ; 
"TECHNOL")  ; 
"TTL" )  ; 
"NMOS'1)  ; 
"CMOS")  ; 
"ECL")  ; 
"FANOUT")  ; 
"NORMLOA" )  ; 
"OVERLOA")  ; 
"END")  ; 
"EXPAND")  ; 
"USING"); 
"SWAPLIN") ; 
"ENDSWAP" ) ; 
"NOEXP"): 
"ADDLIB"); 
"ADSTRUC" ) ; 
"ADBLOCK" ) ; 


/*  used  to  replace  modules*/ 
/*  marks  each  ckt  line  */ 

/*  to  be  examined  for  swaps*/ 

/*  add  a  cell  primitive  */  % 

/*  struc-only  description*/ 

/*  block-only  description*/ 


errjptr  =  -1 
err_count  =  0 
expcount  =  0  ; 


/*  error  count  for  one  line  */ 
/*  error  count  for  program 


pnntf ("Opening  the  circuit  descriptor 
for  (i=0;  icmaxprim;  i++) 
append  tableti]=-l ; 


append_in3ex=0; 


file...  \n"); 

/*  initialize  the  append  table  */ 
/*  to  empty  */ 


s  i 
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/*  the  "stripped"  file  */ 

/*  strip  oft  the  END  keyword  */ 


cellcount=0; 
rl=fopen(argv[l] , "r") ; 

countcells(rl) ;  /*  count  the  #  of  MODULES  */ 

f close (rl); 

rl=fopen(argv[ll ,"r") ; 

r2=fopen("d:outfile" ,"w") ;  /*  the  "stripped"  file  */ 

buildQ;  /*  strip  oft  the  END  keyword  */ 

fprintf(r2,"  END;  \n"); 
fclose(r2) ; 

if  ^ (no_compilation==l)  &&  (add_flag==l) )  /*  no_compilation  set#  */ 

add_lib();  /*  yes,  add  the  modules  without  compiling*/ 

else 

{  /*  no,  begin  compilation  */ 

rl=fopen( "dsoutfile" . "r") ; 

wl=fopen("d:pll","w");  /*  copy  user  prog  to  "pH"  */ 


/*  copy  user  prog  to  "pll"  */ 


fcopy(rl,wl) ;  /*  (now  we're  back  to 

fclose(rl);  /*  Ausif's  code) 

fclose(wl) : 

printf ("Files  are  restored.  Multimodule  expansion  begins. \n") ; 

/* . EXPANSION . . 

firstpO  ;  /*  first  pass,  determine  any  expansion  requests,  1 

/*  put  each  request  on  expand  table  (expt)  ’ 

perform_expansion( ) ;  /*  any  expansions  handled  in  here  ’ 

rl=fopen("d:pll" , "r") ;  /*  copy  pll  to  INFILE  */ 


rl=fopen("d:pll"  "r") ; 
r2=fopen("d: infile" , "w") ; 
fcopy(rl,r2); 
fclose(rl) ; 

fprintf (r2,  "END;  \n"); 
fclose(r2) ; 

rl=fopen( "d: infile" ,"r") ; 
r2=fopen("d:outfile","w") ; 
copy_noend(rl ,r2); 
fclose(rl) ; 
cellcount=0; 

rl=fopen("d:infile","r"); 
countcells(rl); 
fclose(rl) ; 

rl=fopen("d:infile","r") ; 
struc_expand() ; 
rl=fopen("d:outfile" ,"r") ; 
r2=fopen("d:pll" , "w" ; ; 
fcopy(rl,r2); 
fclose(rl ) ; 
fclose(r2) ; 

for  (i=0;  Kexpcount;  i++) 
expt[il . fnum  =  -1; 
expcount=0; 
firstpO ; 
if  (expcount>0) 

perform  expansion( ) ; 
if  (swap  fiag==l) 

swap(); 


/*  any  expansions  handled  in  here 
/*  copy  pll  to  INFILE  */ 


/*  copy  INFILE  to  OUTFILE  */ 
/*  but  leave  OUTFILE  open  */ 


/*  count  the  #  of  MODULES  */ 


/*  handle  any  struc-only  prims  */ 

/*  copy  this  file  back  to  pll  */ 

/*  and  expand  the  struc-only  prims  */ 


/*  clear  the  expand  table  */ 


/*  and  take  care  of  any  modules  */ 
/*  that  struc_expand()  added  */ 


/*  any  USINGS  to  deal  with#  */ 

/*  if  so,  make  the  substitutions  */ 


end  expansion- 


/*  expanded  user  program  */ 


tc  =  fopen("djdescf" , "w" 

s  fn  Hull  \ 


td  =  foperu  "dsdelf11 ,  "w" ) ; 
tp  =  fopen("d:prnt","w"); 


prinpflag  =  1  ; 
dptr  =  0  ; 
normcount  =  0  ; 
sym_count  =  0  ; 
inum  =  0  ; 
desc  no  =  0  ; 
symid  =  -1  ; 


/*  initialize  compiler  vars  */ 


/*  desctable  count  */ 
/*  norm  table  count  */ 
/*  symble  table  entries  count  */ 


/*  descriptor  count 
/*  symbol  table  index 


>» 
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matcount  =  0  ;  /*  delay  matrix  count  */ 

index  =  0  ; 

indexl  =  0  ; 

ord_pri  =  1  ; 

ord_ini  =  1  ; 

filecount  =  o  ; 

act_val  =  0  ; 


/* . PARSING  AND  CODE  GENERATION . */ 

/*  Recursive  descent  parsing  is  used  .  STD  scheme  is  used  for  */ 

/*  code  generation.  BNF  is  as  follows.  */ 

/*  */ 

/*  <COMPILE>  =>  <MOD>  <INP>  <OUT>  <TYP>  {  <CKT>  }  <DEF>  <INI>  <PRI>*/ 
/*  Non-terminals  are  defined  in  their  respective  sub-programs  */ 

COMPILE 0 
fclose 


for  (i=0;Ksym_count;i++) 


/*  save  all  tables 


ord_pri) ; 


sy. 

s 

d" , symt 

i 

(sy," 

d 

d" , symt 

i 

(sy," 

d 

d"  ,symt 

i' 

(sy," 

d 

d"  ,symt 

’i' 

(sy," 

d\n",symt[i] . 

. name ,  symt  [ il . descno)  .• 

.  funcno ,  symt T  il .  f anld)  .* 

. despos,symt[i] . delpos) ; 

. ini_num,symt[i]  ,pn_num)  ; 


} 

fclose (sy) ; 

=  fopen  ("dsdeltable" , "w") 
ftfintf^dp,1'  Td\n",  indexl )  ; 
for  ( i=0;x< index ;i++) 


} 


fprintf(<to," 
fprintf (dp," 
fprintf(dp,M 


il . indx,del  tab[il .dsc_nb) ; 
ij . typ_num,del  tab[il .num_ipt) ; 


d" ,del_tab[i 

d"  ,del_tab[i  _ . _ _ _ 

d\n" ,del_tabf  i]‘.hum_opt,del_tabti]  .val') ; 


fclose (dp) ; 

de  =  fopen  ("dsdescptab" , "w") ; 
irintftde,11  ld\n" ,desc  no); 


fprintftde,1'  ld\n" ,desc  n< 
fprintf(de,"  1d\n",dptrT; 
for  (i=0:i<dptr;i++) 

fprintf(de, 11  ]s  ]d\n"  ,desct[i]  .fun,desct[i]  .dnum)  ; 
f close (de); 

nm  =  fopen  ("dsnortable" , "w")  ; 
fprintr(nm,''  ]d\n" ,normcount) ; 
for  (i=0;i<normcount;i++) 


} 


fprintf (nm,"  ]s  ]d\n" ,nort[i] .nom,nort[i] .nmld) ; 


fclose(nm) ; 

for  (i  =  0;  i  <  inum;  i++) 
inptab[il .if in  =  1  ; 
ip  =  f«Dpen  ("dsinptable"  , ' 
ft>rintf(ip, "  JdXn’’ ,  inum)  ; 
for  (i=0;Kinum;i++) 


w") 


{ 


} 


fprintf (ip, " 
fprintf (ip," 
^rintf  ( ip," 
fprintf (ip," 
fprintf (ip," 
^rintf  (ip, " 
fprintf (ip," 


d" , inptab 
s",inptab 
s" , inptab 

s|| ,  inptab [i] .  inp5,  inptab 
j  ,  ,inp7, inptab 

. inp9, inptab 
if in) ; 


s" , inptab [i 
s  l  si!.  inptab  [i 
d\n", inptab [i] 


.  iname , inptab [ i] . inp  num) ; 
.  inpl , inptab [il . inp2); 
.inp3, inptab h4 


. inp4l 
.  inp6 ) ; 

.  mplu) ; 


fclose (ip) ; 
if  (err  count  1= 
error(26)  ; 

else 


0) 


/*  Compilation  discontinued  message  */ 


/*  no  errors  encountered  message 


error(38) 
outerrorO  ; 


} 

/*- 


} 


■END  OF  MAIN  PROGRAM- 


■*/ 


j  kkkkkkkkk  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k  * 

k 
k 


k 
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COMPILE  SUBROUTINE 


A**************************************************************** I 


MAIN  PARSING  ROUTINE  FOR  1  MODULE . */ 

/*  Recursive  descent  parser.  Syntax  directed  translation  (SDT)  */ 

/*  scheme  is  used  for  code  generation.  BNF  is  as  follows  */ 

<COMPILE>  =>  <MOD>  <INP>  <OUT>  <TYP>  {  <CKT>  }  <DEF>  <INI>  <PRI >*/ 
< — >  =  non  terminals,  all  others  are  terminals  */ 


'/* 

/* 

/* 


COMPILE () 

{ 

printf ("Compilation 
MOD( )  ; 

INPQ  ; 

OUT()  ; 
skip  =  0  ; 

TYP ( )  ; 

if  ;skip  !=  1) 
parseid(4)  ; 
skip  =  0  ; 

CKT()  ; 


begins .\n" ) ; 

/*  call  to  MODULE  parsing  routine 
/*  call  to  INPUTS  parsing  routine 
/*  call  to  OUTPUTS  parsing  routine 


*/ 

*/ 

*7 


/*  call  to  TYPES  parsing  routine 
/*  ■{'  parsing 


*/ 

*/ 


/*  Circuit  interconnections  parsing  */ 

'/J.  ill  ^  _  1 _  _  _  f  s  U./ 


=  0 


=  0 


=  0 


=  0 


filecount 
matgen( ) 
filecount 
DEF()  ; 
filecount 
INI()  ; 
filecount 

filecount  = 
fprintf (tm, 
fprintf (ti, 
fprintf (tc, 
fprintf (td, 
0>rintf  (t; 
fclose(ti 
fclose( tc 
fcloset td 
fclosef tp 
fcloseittn . 
if  (add_flag==l ) 


/*  1 } •  taken  care  of  in  CKT 


*/ 


/*  delay  matrix  generator 


/*  DEFINE  parsing 
/*  INITIALIZE  parsing 


/*  PRINTOUT  parsing 


*/ 

*/ 

V 

*/ 


/*  put  a 
/*  put  a 
/*  put  a 
/*  put  a 
;  /*  put  a 

/*  clean  up 
/*  clean  up 
/*  clean  up 
/*  clean  up 
/*  clean  up 


terminator  on  "modf" 
terminator  on  "initi" 


terminator  on  "descf" 
terminator  on  "delf" 


terminator  on  "prnt" 

and  quit 

and  quit 

and  quit 

and  quit 

and  quit 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


add_lib()  ; 


} 


/*  perform  additions  to  primitive  library  */ 
-END  COMPILE . */ 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
'  k  k 


*  MOD  SUBROUTINE  * 

*  * 

A*********************************** *****************************  j 

/*  <MOD>  =>  MODULE  <delimiter>  id  */ 


MOD<) 

parseid(O)  ; 
^parseid(maxkey)  ; 


/*  ADD  and  MODULE  parsing  */ 

/*  module  name  */ 
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END  MOD 


I  ***************** A*********************************************** 

*  INP  SUBROUTINE  * 

*  * 

********* A*************** *********** ***************************** j 

/*  <INP>  =>  INPUTS  <delimiter>  <IDSTRING>  */ 

INP<) 


farseid(l)  ; 
DSTRING(O)  ; 


/*  INPUTS  parsing 
/*  input  names 


■END  INP- 


j ***************************************************************** 

*  OUT  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  <OUT>  =>  OUTPUTS  <delimiter>  <IDSTRING>  */ 


OUT( ) 

{ 

?arseid(2)  ; 
DSTRING(-l)  ; 


/*  OUTPUTS  parsing 

/*  -i  =  outputs  code  for  sym  tab 


■END  OUT- 


j ***************************************************************** 

*  TYP  SUBROUTINE  * 

*  * 
*****************************************************************/ 

/*  <TYp>  =>  TYPES  < delimited  <T>  */ 

/*  <T>  =>  <PRIMTYPE>  |  <INT  TYPE>  1  ;  */ 

/*  <PRIMTYPE>  =>  <PRIMITIVE>  =  <IDSTRING>  */ 

/*  <INT  TYPE>  =>  INTERNALS  =  <IDSTRING>  */ 

/*  1 { 1  parsing  is  covered  in  this  routine  */ 

TYP() 

{ 

parseid(3)  ;  /*  TYPES  parsing  */ 

while  (I)  /*  <T>  expansion  */ 

?etid(rp,41)  ;  /*  41  =  missing  {  error  */ 

ind_tokenO  ; 

if  (toknn  ==  4)  /*  if  1 { 1  found,  then  quit  */ 

skip  =  1  ; 

.break  ;  /*  no  types  declared  */ 


if  (toknn  ==  8)  /*  <INT.  TYPE>  expansion  */ 

IDSTRING(-25  ;  /*  -2  =  code  for  internals  */ 

else  /*  TYPES  expansion*  */ 

findprimO  ;  /*  <PRIMTYPE>  expansion 

if  (primid  >=  prim_count) 
error(30)  ;  /*  undefined  function 

IDSTRING (primid)  ; 

}  /*  end  TYPES  */ 

}  /*  end  while  1  */ 

}  /*  end  function*/ 

/* — - - EMn  TVP - - - 


-END  TYP- 


/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

*  IDSTRING  SUBROUTINE  * 

A  A 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA / 

/*  <IDSTRING>  =>  id  ;  |  <IDSTRING>  id  ,  */ 


IDSTRING (code)  /* 

int  i  ; 

while  (delimiter  !=  2) 

parseid(maxkey)  ? 
update (code)  ; 


if  (code  ==  0  ) 


/*  code  =  0  for  inputs, -1  for  outputs 
/*  -2  for  internals. 

2)  /*  delimiter  =  ;  */ 

/*  name  */ 

/*  update  symbol  table  */ 
/*  code  =  0  for  input  */ 
/*  -1  for  output  */ 

/*  prim  #  for  TYPE  */ 


act_val  =  act.val  +  1 
code_input( desc.no)  ; 
i  =  sym.count  -  1  ; 
symt[i] .despos  =  11  ; 
symt[i] .delpos  =  0  ; 

if  | code  <=  0  ) 

desc.no  =  desc.no  +  1  ; 


/*  input  code  gen. 


■END  IDSTRING- 


I AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

*  CRT  SUBROUTINE  * 

A  A 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA / 

/* . INTERCONNECTIONS  parsing . */ 

/*  <CKT>  =>  <IDSERIES>  =  <PRIM>  (  <IDSERIES>  )  ;  <CKT>  I  */ 

/*  <IDSERIES>  =  <PRIM>  (  <IDSERIES>  );  */ 

/*  <IDSERIES>  =>  id  |  id,  <IDSERIES>  */ 

CKT() 

int  outpar,  end  ,  i  ;  /*  number  of  output  parameters 

int  savpar,  j  ,  savinp  ; 

int  savidrmaxouts] ,  savn[maxouts] ,  fwdp  : 

I*  savid[]  saves  symbol  table  indexes  while  savn[]  saves  desc.  */ 
/*  numbers  for  output  list  names  */ 

end  =  0  ; 
while  (end  ==  0) 

/* - — — - -  —  <IDSERIES>  for  outputs — - - — */ 

outpar  =  -1  ; 
while  (1) 


/*  number  of  output  parameters 


lgetid(rp,46)  ; 
find_token()  : 


/*  left  side  of  assignment  statement 


cpy(inptabfinum] .iname,  token.buf) ; 

(toknn  ==  5)  %  /*  if  }  found,  end  compilation 


strcpy(in 
if  (toknn 

{  J 

end  =  1 

break  ; 


if  (toknn  <  maxkey)  /*  left  hand  side  should  not  be  a  keyw.*/ 
error(25)  ,* 
outpar  =  outpar  +  1  ; 
findprim()  ; 

if  (primid  <  prim.count) 

error (25)  ;  /*  output  name  is  a  keyword  */ 

f indid()  ;  /*  find  the  symbol  table  index  */ 


i  =  symid  ; 
j  =  act_val  ; 

if  |i  !=  j)  /*  sort  the  SYMT  table  */ 

strcpy(temporary.name,symt[i] .name) ; 
temporary. descno  =  symtti] .descno  ; 
temporary. funcno  =  symt[i] .funcno  ; 
temporary. fanld  =  symt[i] .fanld  ; 
temporary. despos  =  symtfil .despos  ; 
temporary. delpos  =  symtfi] .delpos  ; 
strcpy(symt[i] .name.pymtn] .name) ; 
symtTi  .descno  =  symt  jl. descno  ; 
symt  i  .funcno  =  symt  m.  funcno  ; 
symt  i'  .fanld  =  syrntm. fanld  ; 
symt  i  .despos  =  symt  ] 1. despos  ; 
symtti  .delpos  =  symt [3] .delpos  ; 
strcpy(symt[j] .name , temporary. name) ; 
symtn  .descno  =  temporary. descno  ; 
symt  3  .funcno  =  temporary. funcno  ; 
symt  q  .fanld  =  temporary . fanld  ; 
symt  '3  .despos  =  temporary. despos  ; 
syrntT]] .delpos  =  temporary. delpos  ; 
symid  =  j  ; 

act  val  =  act  val  +  1  ; 
if  (symid  >=  0) 

{  /*  save  output  indices  in  an  array  */ 

savidfoutpar]  =  symid  ; 

^savn[outpar]  =  symt [symid] .descno  ; 

valact  =  savid[0]  : 

if  (delimiter  ==  4)  /*  '='  should  follow  the  output  names  */ 
break  ; 
else 


} 


if  (delimiter  !=  1) 

error(31)  ;  /*  ' , 1  expected  after  each  name 

/*  end  while  <IDSERIES>  for  outputs 


*/ 

*/ 

-*/ 


if  (end  ==  1) 
break  ; 


/*  if  1 } 1  found  quit  */ 


6) 

error(29)  ; 
if  (err  count  ==  0) 
{ 

if  (outpar  >0) 


{  /*  sion  pointers, 

for  (j  =  0;  j  <  outpar;  j  =  j  +  1) 

p3rintf(tc,  ||  1  ]d  15  ]d||,  savn[j 

symt[va 

f advance (tc, 8)  ; 


--<PRIM> . */ 

/*  function  name  */ 

/*  1  ( '  should  follow  function  name  */ 


/*  if  #  of  outputs  >  1,  connect  exten-  */ 


*/ 


:(tc,  "  1  ]d  15  ]d",  savn[j],  savn[j+l])  ; 
:(tc,  "  1  Jd  16  ]d\  savn[:+il,  savn[01)  ; 
ilact] . despos  =  symt [valact] .despos  +  8  ; 


} 


fmdprim()  ; 

if  (jsrimid  >=  prim_count) 

f indid()  ;  /*  function  name  is  a  type  */ 

^primid  =  symt [ symid] . funcno  ; 

inptab[inum] .inp  num  =  primt[primid] .numpar  ; 
if  jerr_count  ==  0) 

fprintf(tc,"  33  ]d  ]d",savn[0] ,primid)  ; 
symt[valact] .despos  =  symt [valact] .despos  +  3  ; 


»  » 


fadvance(3) 
if  '  •  N' 

error 
for(j 


vauwcyj;  { 

(primt [primid] .outp  1*  (outpar+1)) 
rror(35;  ;  /*  #  of  outputs  should  be 

(j  =0;  j  <=  outpar;  j  =  j  +  1;  /*  update 


} 


symt[(savid[j])] .funcno  *  primid 
updesct(tokenJbuf ,  savidfjj)  ; 


as  in  table  */ 
symbol  table  */ 
/*  and  desc  table  */ 


■*/ 

■*/ 

*/ 

/ 


- <IDSERIES>  for  inputs - 

fwdp  =  0  ; 

savpar  =  primt [primid] .numpar  ;  /*  number  of  inputs 

savinp  *  o  ; 
savprim  =  primid  ; 
strcpy(savbuf ,  token_buf)  ;  /*  save  function  name/type 

while  (savpar  !=  0)  /*  while  "  J  "  1 


{ 


Le  all  inputs  have  been  scanned  */ 


parseid(maxkey) 
switch (savinp) 


/*  parameter  of  function 


V 


case  0  : 
case  1  : 
case  2  : 
case  3  > 
case  4  : 
case  5  : 
case  6  : 
case  7  s 
case  8 
case  9 


} 


strcpy(inptab [ inum] . inpl , token_buf ) 
break; 

strcpy(inptab [ inum] . inp2 , token_buf ) 
break; 

s trcpy ( inptab [ inum] . inp3 , token_buf ) 
break; 

strcpy ( inptab [ inum] . inp4 , tokenjbuf ) 
break; 

strcpy (inptab [inum] .inp5, token_buf ) 
break; 

s trcpy (inp tab [inum] .inp6,token_buf) 
break; 

strcpy ( inptab [ inum] . inp7 , token_buf ) 
break; 

strcpy( inptab [ inum] . inp8 , token_buf ) 
break; 

s  strcpy (inptab [inum] ,inp9,token_buf) 
break; 

s  strcpy( inptab [inum] . inplO, tokenjbuf) ; 
break; 


savinp  =  savinp  +  1  ; 

f indid()  ;  /*  find  parameter's  location  in  the 

connect (0,savn, fwc^s) ;/*  generate  code  and  update  fanld 
if  (savpar  ==  1) 


*/ 

*/ 


if  (delimiter  !=  5) 
error(32)  ; 


/*  ')'  expected  after  the  last  arg.  */ 


savpar  =  savpar  -  1 
if  (savpar  !=  0) 


{ 


if  (delimiter  != 
error (31)  ; 
parseid(maxkey)  ; 
switch( savinp) 


1) 


/*, 

/* 


expected  after  first  parameter  */ 


get  next  argument 


V 


{ 


case  0 
case  1 
case  2 
case  3 
case  4 
case  5 


strcpy( inptab [ inum] . inpl , tokenjbuf ) 
break; 

strcpy( inptab [ inum] . inp2 , token_buf ) 
break; 

strcpy( inptab [ inum] . inp3 , token_buf ) 
break; 

strcpy( inptab [inum] . inp4, token_buf ) 
break; 

strcpy (inptab [inum] . inp5, token_buf ) 
break; 

strcpy ( inptab [ inum] . inp6 , tokenjbuf ) 
break; 
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case  6  : 


case  7 
case  8 
case  9 


s  strcpy(inptab[inum] .inp7,token_buf) ; 
break; 

s  strcpy(inptab[inum] .inp8,token_buf) ; 
break; 

:  strcpy(inptab[inum] . inp9 , token_buf ) ; 
break; 

:  strcpy(inptab[inum] .inplO,token_buf) ; 
break; 


savinp  =  savinp  +  1  ; 
if  (savpar  >  1) 

if  (delimiter  !=  1)/* 
.  error(31)  ; 


expected  after  argument 


if  (delimiter  1=  5) 

error(32)  ;  /*  )  expected  after  last  arg.  */ 

f indid()  ;  /*  find  symbol  table  index  for  the  */ 

/*  input  name  */ 

connect(l,savn,fwdp) ;  /*  generate  code  and  update  fanld  */ 
sa\yar  =  savpar  -  l  ; 
fwdp  =  fwdp  +  1  ; 


if  (outpar  >0) 

outpar  =  outpar  -  1 
else 

if  (savpar  !=  0) 


/*  multioutput  case  */ 


/*  multiinput  case  */ 


f advance (tc, 8)  ; 
savn[fwdp]  =  desc_no  ; 
desc_no  =  descno  +  1  ; 

,> 

}  /*  end  if  */ 

}  /*  end  of  <IDSERIES>  for  inputs  */ 

mum  =  inum  +  1; 

}  /*  end  while  end  =0  */ 

}  /*  end  <CKT>  */ 

. END  CRT . 


/***************************************************************** 

*  * 

*  CONNECT  SUBROUTINE  * 

*  * 
AAAAAAAAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  j 

/*  Circular  list  generation  for  the  circuit.  Previous  list  is  */ 

/*  broken  and  new  circular  loop  is  made.  */ 

connect ( f , savn , fwdp ) 

int  f  ;  /*  f  is  0  or  1  */ 

int  savn[],  fwdp  ;  /*  savn  has  desc  #  of  output  names  */ 

int  i  ; 

if  (err_count  ==  0) 


/a - ------update  fanld - - — - — — */ 

for  (i  =  0;  i  <  normcount;  i  =  i  +  1)  /*  find  name  in  nort  */ 

if  (strcmp(nort[i] .nom,savbuf)  ==  0) 
break; 

if  (i  <  normcount)  /*  if  over  ride  is  used  for  norm  load  */ 
symt[symid) .fanld  =  symt(symidl. fanld  +  nort[i] .nmld  ; 
else  /*  use  default  value  from  prim,  lib  */ 

symtfsymid] . fanld=symt[symid] . fanld  +  primt[savprim] .normld; 


A 


/* . 

fprintf(tc,"  2  Id",  symtfsymid] .descno)  ; 
fprintf (tc, "  3  ]d",  symtfsymid] .descno)  ; 

/*  save  current  pointer  from  the  input 
fprintf (tc,"  1  Id  8  jd",  symtfsymidl. descno,  savnffwdp])  ; 
fprintf (tc,"  1  d  11  Td",  symt[symid] .descno,  f ) ; 
fprintfftc,"  1  d  9  ]d",  savnfrwdp].  f)  ; 
fprintf(tc,"  1  d  12  ]d",  savnffwdpj,  f)  ; 

/*  complete  the  6-list 

fprintf (tc,"  \n"); 

symtfvalact] .despos  =  symt[valact] .despos  +  20  ; 


fprintf (tc," 
fprintf ( tc , " 


filecount  =  0 


}  /*  end  connect  */ 

/* - - - - - F 


END  CONNECT- 


j A***************** ********** A************************************ 

*  DEFINE  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  <DEF>  =>  <PRIMID>  :  <DEFINITIONS>  */ 

J*  <DEFINITIONS>  =>  RI SEDELAY ( num ,  num)  =  num  */ 

/*  FALLDELAY(num,  num)  =  num  */ 

/*  FANOUT  =  num  */ 

/*  NORMLOAD  =  num  */ 

/*  OVERLOAD  =  num  */ 

/*  TECHNOLOGY  =  <TECHTYPE>  */ 

/*  <TECH  TYPE>  =  TTL  |  NMOS  |  CMOS  |  ECL  */ 

DEF  ( ) 

{ 

int  j,  num,  savtoken  ; 
int  fanl,  techl,  overl  ; 
skip  =  0  ; 

parseid(9)  ;  /*  DEFINE  expected  */ 

while  (1) 


getid(rp,42)  ; 
find ,  token () ; 
if  (loknn  ==  6) 

{  ,  . 

Skip  =  1; 
break  ; 


/*  function  name  or  type 
/*  if  token  =  'INITIALIZE' 


del_tab[indexl] .val  =  0: 

strcpy(savbuf ,  token_buf ) ;/*  save  function  name  in  savbuf 
findprim()  ; 

if  (  primid  >=  prim_count) 

^findid  ()  ; 

^primid  =  symtfsymid] .funcno  ; 
fanl  =  primt fprimidl . fanout  ; 

techl  *  primt  primid  .technology  ;  /*  default  parameters 
overl  =  primt [primid] .overld  ; 


while  (delimiter  !=  2) 

getid(rp,43)  ; 
find_token( ) ; 
savtoken  =  toknn  : 
switch( savtoken)  f 
case  10:  rfdel(o)  ; 
break  ; 

case  11:  rfdel(l)  ; 
break  ; 

case  12:  getid(rp,33) 
for  (j  =  13; 


■DEFINE  statement- 


each  DEFINE  ends  with 


s 

'RISEDELAY' 

*  •  • 6 tC  •  • 

/* 

rise  delay 

*/ 

/* 

fall  delay 

*/ 

/* 

TECHNOLOGY 

=  --  */ 

1 

+  1) 
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if  (strcmp(token_buf ,  keywordfj])  ==  0) 
break  ; 


(j  >  16) 

error (36)  ;  /*  undefined  technol.*/ 

else 

techl  =  j  ; 
break  ; 

case  17:  getid(rp , 33) ;/*  FANOUT  -  get  value  of  para.*/ 
fanl  =  atoi(token_buf )  ;  /*  ASCII  to  integer  */ 
break  ; 

case  18:  break  ;  /*  normload  handled  in  first  pass  */ 

case  19:  getid(rp,33)  ; 

overl  =  atoi(token_buf )  ;/*  value  of  overld  */ 
break  ? 

default:  error(36)  :  /*  syntax  error  message  */ 

}  /*  end  switch  ty 

/*  while  ;  each  DEFINE  ends  with  1 ; 1  */ 


/*  undefined  technol.*/ 


if  (err_count  ==  0) 


■generate  code  for  mode- 


lira  =  0: 

while  (lim  <  dptr) 

finddesc(savbuf )  ; 
if  (lim  >  dptr) 
break  ; 

num  =  symtfdescid] .fanld  ? 
if  (num  >  fanl) 

{ 

del__tabr  index  11 .  indx  =  index; 
del_tab  indexl  . typ_num  =  12  ; 
del_tab  indexl  .num_ipt  =  0; 
del  tab [indexl  .num^opt  =  0; 
cmode(num,  fanl,  overl,  techl)  ; 
index  =  index  +  1  ; 
indexl  *  indexl  +  1; 


}  /*  end  while  (1)  */ 

}  /*  end  DEFINE  */ 

^ . . . um  njrjri 


■END  DEFINE - 


*  * 

*  CMODE  SUBROUTINE  * 

*  A 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA A AAA A A AAAAAAAAAAAAAAAAAAAAA j 

/*  Code  generator  for  mode.  Code  is  generated  only  if  mode  !=  0  */ 

cmode(num,  fanl,  overl,  techl) 
int  num,  fanl,  overl,  techl  ; 

if  (num  <=  (fanl  +  overl)) 

^if  (techl  ==  16) 

fprintf(td,"  1  ]d  6  2",  symt[descid] .descno)  ; 
else 

fprintf ( td, 11  1  ]d  6  1",  symtfdescid]  .descno)  ; 

else 

if  (techl  ==  16) 

fprintf (td,"  1  ]d  6  3",  symtfdescid] .descno)  ; 
else 

fprintf (td,"  1  ]d  6  4",  symtfdescid] .descno)  ; 


^fadvance(td,4) 

del_tab[ indexll . 
deltabfindexl] . 


,_tab[indexl]  .dsc_nb  =  symtfdescidl . 

_ .tab [indexll .val  =  del  tabfindexl]. 

J  7*  end  CMODE  */ 


descno  ; 
val  +  4 


■END  CMODE- 


/***************************************************************** 

*  RFDEL  SUBROUTINE  * 

*  * 

****************  *****  ********************************************  j 

/*  code  generator  for  the  delay  modifications  */ 

rfdel(nl) 
int  nl  ; 

{. 

mt  pari,  par2,  parml,  parm2,  num,  savparl,  savpar2,  inp  ; 
if  (delimiter  !=  6) 

error(29)  ;  /*  ' ( '  expected  after  RD,  FD  */ 

getid(rp,33)  ; 
pari  =  atoi( token  buf) 


parml  =  primtfprimidl .numpar 
parm2  =  primtiprimid] .outp 
if  (pari  >  parml) 

error (39)  ;  / 

if  (delimiter  !=  1)  / 

error(31)  ; 
getid(rp,33)  ; 
par2  =  atoi( token  buf)  ; 
if  (par2  >  parm2) 
error (40)  ; 
if  (delimiter  !=  5) 


/*  first  index  */ 


/*  incorrect  first  index  */ 
/*  1 , 1  expected  */ 


/*  second  index  */ 


error(32)  ; 
getid(rp,33)  ; 
num  =  atoi(token_buf) 
savparl  =  pari  ; 
savpar2  =  par2  ; 
lim  =  0  ; 

while  (  lim  <  dptr) 


) 1  expected 


/*  value  of  rise  delay  */ 

/*  save  first  index  * 

/*  save  second  index  i 


ile  (  lim  <  dptr)  /*  generate  code  for  all*/ 

/*  aescs.  using  name  in  */ 
finddesc(savbuf)  ;  /*  savbuf  */ 

del_tabrindexll .dsc_nb  =  symt[descid] .descno  ; 
del_tab  indexll .num_ipt  =  savparl; 
del_tab[indexlj .num_opt  =  savpar2; 

lim  =  lim  +  parm2  -  1  ;  /*  lim  is  incremented  by  #  of  outputs*/ 
if  (lim  >  dptr)  /*  desctable  has  successive  entries  */ 

break  ;  /*  for  multi-output  descriptors  */ 

f advance (tm, 2)  ; 

if  (pari  >  1)  /*  first  access  desc.  */ 

fprintf(tm,"  6  3dM,symt[descid].descno); 
del_tabf indexll  .val  =  del  tab[mdexl]  .val  +  2  ; 
del  tab l indexll .indx  =  index; 


del_tabf inde 
del  tab [ inde 
if  Ini  ==  0) 


del_tab[indexl] .typ_num  =  10  ; 


del  tabfindexl] .typ  i 

ml. t  :  fx' 


num  =  11 


while(  pari  >  0) 
fprintfftm,"  7  "); 

deltabf indexll .val  =  del _tab[ indexll .val  +  1  ; 
f advance ( tm, 1)  ; 
pari  =  pari  -  2  ; 

}  /*  if  pari  >  1  */ 

Lse  /*  if  pari  =1  */ 

fprintf(tm,"  4  ]d" , symt(descid] .descno) ; 


del_tab[ indexl] .val  =  del  tab[indexl] .val  +  2  ,• 
de 1  tab [ indexl 1 . indx  =  index ; 
if  Tnl  ==0} 

de l_tab[ indexl ] .typ_num  =  10  ; 


else 


} 


del_tab [ indexl ] .typ_num  =11  ; 


/*  multi-output  case  */ 


inp  =  savparl  ]  2  ;  /*  even  or  odd  pari  */ 

if  (par2  ==  0) 

fprintf (tm, "  5  ]d  ]d",  ((2+nl)  +  2*inp) ,  num)  ; 
del_tab[ indexl] .val  =  del_tab[ indexl] .val  +  3  ; 

else 

?ar2  =  par2  -  1  ? 
printHtm,"  8  ")  ; 

del_tabf indexl] .val  =  del  tab [indexl] .val  +  1  ; 
del  tab [indexl] .indx  =  index; 
if  Tnl  ==  0) 

del_tab [ indexl ] .typ_num  =  10  ; 

else 

de l_tab[ indexl ] .typ_num  =11; 
fadvance(tm,3)  ; 
while  (par2  >  0) 

^fprintf (tm, "  9  ")  : 

del_tab[ indexl] .val  =  del_tab[ indexl] .val  +  1  ; 
fadvance(tm,l)  ; 
par2  =  par2  -  1  ; 

i|  (inp  ==  0) 

if  (nl  ==  0) 

fprintf (tm,"  10  ]d",num)  ; 

del_tab[ indexl] .val  =  del_tab[ indexl] .val  +  2  ; 


else 

{ 


fprintf(tm,"  11  ]d",num)  ; 

del_tab[ indexl] .val  =  del_tab[ indexl] .val  +  2  ; 


else 


{ 


if^(nl  ==  0) 

fprintf (tm,"  12  ]d",num)  ; 

del_tab[ indexl] .val  =  del_tab[ indexl] .val  +  2  ; 


else 

{ 


l 


fprintfftm,"  13  ]d",num)  ,* 

del_tab[ indexl] .val  =  del_tab[ indexl] .val  +  2  ; 


} 


} 


f advance (tm, 2)  ; 


} 


pari  =  savparl  ,- 
par2  =  savpar2  ; 
index  =  index  +  1  ; 
indexl  =  indexl  +  1  ; 

/*  end  RFDEL  */ 


END  RFDEL 


/★A*************************************************************** 

'  *  * 

*  MATGEN  SUBROUTINE  * 

*  * 

*************1*  '*★*★****★*************★★★******★******************  j 

/*  Also  generates  default  mode  values  for  all  functions  involved  */ 
matgen() 

int  pari,  par2,  i,  j,  k,  1,  m,  n  ; 
int  num,  fl,  ol,  tl  ; 
char  s[8] ; 

/* . DEFAULT  MODE  GENERATION . */ 

for  (i  =  0;  i  <  sym_count;  i  =  i  +  1)  . 

if  (symt[i] .descno  >=  0) 

if  (symt[i] .funcno  >  0) 

descid  =  i  ;  /*  cmode()  needs  descid  for  code  gen.  */ 

num  =  syrntfi] .fanld  ; 

fl  =  primt  (symt [i] .funcno)] .fanout  ; 

ol  =  primt ' (symt  i'  .funcno)'  .overld  ; 

tl  =  primt  (symt [i  .funcno)] .technology  ,* 

if  (num  >  fl)  /*  if  non  zero  mode  */ 

cmode(num,  fl,  ol,  tl)  ; 

^  symt[i] .delpos  =  symt [i] .delpos  +  4  ; 


/* . 

. 

1  =  0; 

while (  i  <  dptr) 

i=  symtTdesct 
=  symt[desct 
n  =  desctfi] .d 


■DEFAULT  DELAYS  AND  MATRIX  STRUCTURE- 


rdesctfil .dnum] . 
[desctti] .dnum] . 
t[i] .dnum  ; 

w  _  *  • _ l  n.i _ 


descno  ;  /*  descriptor  number  */ 

funcno  ;  /*  function  number  */ 


strcpy(s.  primt [k].nam2)  :  /*  s  contains  name  of  function  */ 

bdreaa(s)  :  /*  read  block  delays  for  s  in  rd/fdmat  */ 


if  (k  >=  0) 

{ 


/*  if  not  input  or  types  etc.*/ 


pari  =  primt [ kl .numpar  ; 
par2  =  primt f k] .outp  ; 
i  =  i  +  par2  -  1  ; 


/*  pari  =  number  of  inputs,  par2  =  number  of  outputs  */ 
for  (1=1;  1  <=  pari;  1=1+2)  /*  vertical  scanning  */ 

{if  (1  >  2) 

{ 

if  (1  >  4) 

{ 

fprintf(td. "  7  11 ); 

^  symt [n] .delpos  =  symt(n] .delpos  +  1  ; 

else 

^  fprintf(td. "  6  ]d",j)  ; 

symt [n] .delpos  =  symt [n] .delpos  +  2  ; 

else  /*  inputs  =  1  or  2  */ 

fprintf(td. "  4  ]d",j)  ; 

symt (n] .delpos  =  symt [n] .delpos  +  2  ; 

fadvance(td,2)  •, 


vy-ov/.y.v-y. 


/* - code  for  block  delays-- 

if  (rdmat[l-l] [0]  !=  -1) 

fprintf(td."  5  2  ]d" , rdmat[l-l] [0] )  ; 
symt [n] .delpos  =  symt [n] . delpos  +  3  ; 

if5(fdmat[l-l] [0]  !=  -1) 

fprintf (td, "  5  3  ]d" , fdmat[l-l] [0] )  ,- 
symt[n] .delpos  =  symt [n] . delpos  +  3  ; 

if  ((1+1)  <=  pari) 

if  (rdmat[l] [0]  !=  -1) 

fprintf(td,"  5  4  ] d"  , rdmat [ 1] [0] )  ; 
symt [n] .delpos  =  symt [n] .delpos  +  3 

if  (fdmat[l] [0]  !=  -1) 

fprintf (td, "  5  5  ]d" , fdmatfl] [0] )  ; 
symt [n] .delpos  =  symt [n] .delpos  +  3 

}  } 

fadvance(td,12)  ; 


r  (m  =  2;  m  <=  par2  ;  m  =  m  +  1) 

if  (m  ==  2) 

{ 

fprintf  (td. 11  14  ]  d"  ,matcount)  ; 
symt [n] .delpos  =  symt [n] .delpos  +  2  ; 
matcount  =  matcount  +  1  ; 

else  /*  if  number  of  outputs  >  2  */ 

fprintf(td."  15  ]d  ]d",  matcount  -  1,  matcount)  ; 
symt [n] .delpos  =  symt [n] .delpos  +  3  ; 
matcount  =  matcount  +  1  ; 

} 

fadvance(td,3)  ; 

/* - code  for  block  delays - * 

if  (rdmat[l-l] [m-1]  !=  -1) 

fprintf  (td, 11  16  ]d  ]d",matcount-l,  rdmat[l-l]  [m-1] ) ; 
symt [n] .delpos  =  symtfn] .delpos  +  3  ? 

if  (fdmat[l-l] [m-1]  ! =  -1) 

fprintf(td,M  17  ]d  ] d" ,matcount-l , fdmat [1-1] [m-1] )  ; 
symt [n] .delpos  =  symt [n] .delpos  +  3  ; 

if  ((1+1)  <=  pari) 

if  ( rdmat [1] [m-1]  !=  -1) 

fprintf(td,"  18  ]d  ]d",matcount-l,rdmat[l] [m-1] ) 
symtfn] .delpos  =  symtfn] .delpos  +  3  ; 

if  (fdmat[l] [m-1]  !=  -1) 

fprintf(td  "  19  ]d  ] d" ,matcount-l , fdmat[l] [m-1] ) 
symt [n] .delpos  =  symt [ n] . delpos  +  3  ; 

} 

fadvance(td,12)  ; 


/*  end  for  m  =  —  */ 
/*  end  for  1  =  --  */ 
/*  end  if  k  >=  0  */ 


}  /*  end  for  i  =  —  */ 

}  /*  end  matgen  */ 

t* . END  MATGEN- 


I  ***************************************************************** 

*  BDREAD  SUBROUTINE  * 

*  * 
A****************************************************************  j 

/*  This  routine  reads  the  block  delays  for  a  given  function  name  */ 
bdread(s) 
char  s[8J  ; 

{. 

int  i.  i,  numl,  x,  y,  w,  z,  il  ; 

FILE  *rl  ; 
char  p[8]  ; 

rl  =  fopen("dsbldel" ,"r")  ;  /*  block  delay  file  */ 

/* - initialize  delay  matrix  to  -1 - */ 


t - initialize  delay  mai 

for  (i  =  0;  i  <  maxouts;  i  =  i  +  1) 

for  (j  =  0;  j  <  maxouts;  j  *  j  +  1) 

^rdmatf i] [  j]  =  -1  ; 
fdmat[i] 11 J  =  -1  ; 


/* - read  default  block  delays-- 

fscanf(rl,"]s",p)  ; 

while  (strcmp(p, ‘‘END")  !=  0) 

fscanf(rl/"]d" ,&numl)  ; 

for  (il  =  1;  il  <=  numl;  il  =  il  +  1) 

^fscanf(rl,"]d  Id  ]d  ]d",&x,  &y,  &w,  &z)  ; 
if  (strcmp(p,s)  ==  0} 


rdmatrxiryl  =  w  ; 
fdmat[x] [y]  =  z  ; 


if  (strcmp(p,s)  ==  0) 
break  ; 

fscanf (rl,"]sM ,p)  ; 


fclose(rl)  ; 


-END  BDREAD- 


j ***************************************************************** 

*  INI  SUBROUTINE  * 

*  * 

A****************************************************************  J 

/*  <INI>  =>  INITIALIZE  :  <INITSTRING>  */ 

/*  <INITSTRING>  =>  id  =  num  ,  <INITSTRING>  |  id  *  num  ;  */ 


INI() 

int  flag  ; 
flag  =  0  ; 
if  ’skip  !=  1) 

mseid(6)  ; 

e  (delimiter  1=  2) 

parseid(maxkey)  ; 
if  (delimiter  !=  4) 
error (27)  ; 
findidO  ;  ..  . 


symt[symid] . ini_num  =  ord_ini  ; 


/*  begint[0]  =  NULL  indicator 

/*  INITIALIZE  ends  with  1 ; ' 

/*  '  =  '  expected  after  the  name 
f*t symbol  table  index 


/*  initialization  value 


ord  ini  =  ord  ini  +  1  ; 
getid(rp,43)  ; 
if  (err_count  ==  0) 

‘sWi/op  ' 

fprintf (ti,"  21")  ; 
else 

fprintf(ti,"  22")  ; 

/*  allocate  storage  for  tstack  */ 
fprintf (ti,"  23  24  25")  ; 

/*  generate  code  */ 


*/ 


fpnntf(ti,"  26  Id",  symt [ symid]  .descno)  ; 
fprintf(ti,"  27  J s" , token_buf )  ; 
flag  =  1  ; 


} 


fadvance(ti,6)  ; 


-END  INI- 


'*/ 


/***************************************************************** 

*  * 

*  PRI  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  <PRI>  =>  PRINTOUT  s  <IDSTRING>  */ 

PRI() 

int  i,  j  : 
parseid(7)  ; 

1  =  0; 

while  (delimiter  !=  2) 

^arseid^maxkey)  ; 

symt[symid] .pri  num  =  ord_pri  ; 
if  (err_count  ==  0) 

{for  (j  =  0;  j  <=  7  ;  j  =  j  +  1  ) 

if  (token_buf [ j]  ==  ' \0 1 ) 
break  ; 
else 
{ 


/*  PRINTOUT  ends  with 


•  .  i 


fprintf(tp,"  28  Id  ]d  ]c",i,  j, 
val_prt  =  val _prt  +  1  ; 
f advance (tp, 4)  ; 


token_buf [ j ] ) ; 


symt [symid] .pri_val  =  val_prt  ; 
ord_pri  =  ord_pri  +  1  ; 
valjprt  =  0  ; 

fpnntf(tp,"  29  ]d  ]d",i,  symt  [symid]  .descno)  ; 
fadvance(tp,3)  ; 


i  =  i  +  1 


} 


fprintf (tp,"  30  31 
fadvance(tp,4)  ; 


]d  32", i)  ; 


-END  PRI- 


*/ 


V 


/***************************************************************** 

*  * 

*  STRCPY  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  copies  one  string  in  another  */ 


/*  copies  s  =  t  */ 


strcpy(s, t) 
char  *s,  *t  ; 

while (*s++  =  *t++) 


n 


■END  STRCPY- 


■*/ 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk  kk  k  kkkkkkkkkkkkkk  ****** 

A  * 

*  STRCMP  SUBROUTINE  * 

*  * 

***************** A************************ A**** A***************** j 

/*  returns  zero  if  string  s  is  equal  to  string  t  */ 

strcmp(s,t) 
char  s[],  t[]  ; 

int  i  ; 


/ 


2 


1  =  U  ; 
while(s[il  • 
if  (s [i++ 
return 
return(s[i] 


1 


0) 


END  STRCMP 


*/ 


j  'k'k'k'k'k'k'k'k-k'k'k-k-k'k'k'k'k'k-k'k'k’k'k'k’k-k'k'k’k'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


•k  k 

*  GETID  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  finds  the  next  id  in  the  user  file  */ 


getid(rx,  ernm)  /*  finds 
int  ernm  ;  /*  error 

FILE  *rx  j 

(  . 

int  x  ,  c,  flag  ; 
flag  =  0  ; 
delimiter  =  -1  ; 
i  =  0  ; 

while ( (delimiter  <  1  ) 

c  =  fgetc(rx)  ; 
buff [6b]  =  c  ; 
bb  =  bb  +  1  ; 
if  (bb  >  78) 

{bb  =  0 


the  next  id  and  returns  it  in  token_buf  */ 
number  in  case  of  EOF  */ 


M  SU. 


/*  flag'=  i  when  some  non  blank  char  is  */ 
/*  read  into  token  buffer  */ 

/*  buff  is  the  80  character  buffer  for  */ 
/*  printing  the  entire  line  after  it  is  */ 
/*  read.  bb  =  index  for  buff  */ 


switch(c) 


case 

case 

case 

case 

case 

case 

case 


«  delimiter  =  -1  ; 
break  ; 

:  delimiter  =  1  ; 
break  ; 

2  delimiter  =  2  ; 
break  ; 

:  delimiter  =  3  ; 
break  ; 

2  delimiter  =  4  ; 
break  ; 

s  delimiter  =  5  ; 
break  ; 

2  delimiter  =  6  ; 
break  ; 


case  ' \n 1 


if  (flag  ==  1) 
delimiter  =  7  ; 


buff [bb-1]  =  '\0' 


/*  flag  =  1  indicates  that  */ 
/*  some  non  blank  character*/ 
/*  was  read  into  tokenjbuf  */ 


case  EOF 


outerror()  ; 
bb  =  0  ; 
break  ; 

printf("]-s\n,,/buff) 
error(ernm)  ; 
error(33)  ; 
outerror()  ; 
exit(O)  ; 
break  ; 


/*  output  errors  in  the  */ 
/*  line  if  any.  */ 
/*  initialize  line  buff  */ 


/*  EOF  error 
/*  abort  the  program 


default 


flag  =  1  ; 
delimiter  =  0 


(delimiter  ==  0  ) 


‘if  (i  <=  6  ) 

{ 

token_buf[i]  =  c  ; 
i  *  i  +  1  ; 

.  } 


token_buf[i]  =  1 \0 ' 


-END  GETID- 


/***************************************************************** 

*  FIND_TOKEN  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  Token  =  maxkey  if  a  nonkeyword  name  is  encountered  else  it  is  */ 
/*  equal  to  the  index  of  the  keyword  in  the  keyword  table  */ 


find_token() 
int  i  ; 

for  (i  =  0;  i  <  maxkey;  i  =  i  +  1)  /*  sequential  search  */ 

if  (strcmp  (token_buf ,keyword[i] )  ==  0  ) 
break  ; 

toknn  =  i  ;  /*  token  =  maxkey,  if  match  is  not  found  */ 

r . END  FIND.TOKEN . */ 


I  ***************************************************************** 

*  PARSE ID  SUBROUTINE  * 

*  * 


'k'k'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k'k’k'k’k'k'k'k'k’kit'k'k'k'k'k'k'k'k'k'k'k  / 

X  e  ' _ a  _  _ _ j  j _ i.  j  _  _ _ _  x'# 


/*  find  the  next  identifier  number 


parseid(i) 
int  i  ; 

{  ... 


/*  i  =  token  number  to  be  compared  to  */ 


getid  (rp,33)  ; 
rind_token()  ; 


if  (toknn  ==  maxkey) 


/*  find  the  next  identifier  */ 
/*  find  token  number  */ 
/*  check  if  name  !=  function*/ 


findprim()  ; 

if  (primid  <  prim  count) 
error(25)  ; 

i^  (toknn  !=  i) 
error(i)  ; 


/*  keyword  found 


/*  identifier  of  type  1  i ' 
/*  expected. 


-END  PARSEID- 


I  ***************************************************************** 

*  FINDID  SUBROUTINE  * 

*  * 


★A*************************************************************** i 

/*  finds  the  symbol  table  index.  An  error  message  is  generated  if*/ 
/*  the  name  does  not  exist  */ 

f indid() 

int  i  ; 

for  (i  =  0;  i  <  sym  count;  i  =  i  +  1) 

if  (  strcmp( token Jsuf ,symt[i] .name)  =  0) 
break  ; 


if  (i  ==  sym_count) 

error(28)  ; 
symid  =  -1  ; 

else 

symid  =  i  ; 


/*  name  not  found  in  the  symbol  table  */ 
/*  undeclared  name  */ 


-END  FINDID- 


j  ******************  ****************  ******************************* 

*  FINDDESC  SUBROUTINE  * 

*  * 

A**************************************************************** I 

/*  This  routine  is  used  in  conjunction  with  the  DEFINE  parsing  to*/ 
/*  update  all  descriptors  using  the  name  in  sbuf  with  the  decl-  */ 
/*  ared  parameters.  */ 

finddesc(sbuf) 
char  sbuf [8]  ; 

*int  i  ; 

for  (i  »  lira;  i  <  dptr;  i  *  i  +  l) 
if  (strcmp(sbuf ,desct[i] .fun)  ==  0) 
break  ; 
lim  a  i  +  1  ; 
descid  =  desct[i] .dnum  ; 

/* . END  FINDDESC . - . */ 


/A**************************************************************** 

*  UPDESCT  SUBROUTINE  * 

*  * 

***************************************************************** i 

/*  This  routine  updates  the  descriptor  table.  */ 

/*  s  =  function  name  (type),  num  =  symbol  table  index  */ 

updesct(s,  num) 
cnar  s[8]  ; 


char  s [B]  ; 
int  num  ; 

{ 

strcpy(desctrdptr] . 
desctldptr] .anum  = 
dptr  =  dptr  +  1  ; 


fun,  s) 
num  ; 


/* . END  UPDESCT . */ 

j ***************************** A A **** A A******* ********************* 

*  FINDPRIM  SUBROUTINE  * 

*  * 

*****************************************************************  j 
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/*  finds  the  primitive  index 
findprim() 
int  i  ; 

for  (i  =  0;  i  <  prim  count;  i  =  i  +  1) 

if  (  strcmp(token_buf ,primt[i] .nam2)  ==  0) 
break  ; 
primid  =  i  ; 

. END  FINDPRIM . . 


j  'k'k'k'kk'k'k'k'k'k’k'k'kk'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k 

*  UPDATE  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  This  routine  updates  the  symbol  table,  sym  count  =  symbol  */ 

/*  table  index,  desc_no  =  descriptor  number,  “  */ 

I*  typ  =  function  type,  0  =  input,  -1  =  output,  -2  =  internal  */ 

update (typ) 
int  typ  ; 

symt[sym_countl .descno  =  desc_no  ; 
symt[sym_count] .funcno  =  typ  ; 
strcpy^symt[sym_count] .name ,  token  buf)  ; 
del  tabfsymcount] .dsc_nb  =  desc  no  ; 


cpy(symt[ 

_tab[sym_' 


sym_count] .name,  token  buf)  ; 
count] .dsc_nb  =  desc_no  ; 


sym_count  =  sym_count  +  1  ; 


•END  UPDATE - 


I  ***************************************************************** 

*  CODE  INPUT  SUBROUTINE  * 

*  * 

***************************************************************** i 

/*  put  the  code  for  the  input  in  the  DCF  file  */ 

code^input(i) 

int  l  ;  /*  i  =  desc_no  */ 

int  j; 

if  Terr  count  ==  0) 

{ 


4; 

if  Terr_c 

r  '  “ 


fprintf(tc. "  33  Id  0" ,i)  ; 

j=hashf (token  but ) ; 

fprintf (tc,“  I  ]d  0  ]d",i,  j)  ; 

/*  parameters  0  and  1  contain  the  input  line  name  */ 
fprintf (tc,"  1  ]d  2  l",i)  ; 
fadvance(tc,15)  ; 


■END  C0DE_INPUT- 


j ***************************************************************** 

*  ERRMESSAGE  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  generates  the  error  message  */ 

errmessage(i) 

int  i  ;  /*  i  =  error  number  */ 

{  /*  err_ptr  =  global  indicating  error  table  index  */ 

printf ("  ERROR  ")  ; 

switch(i) 

case  0  t  printf("  'MODULE'  expected,  ]s  f ound\n" , 

errt[err_ptr] .nm)  ; 


case  1  : 


case  2  : 


case  3  : 


case  4  : 


case  5  : 


case  6  : 


case  7 


case  9  : 


case  25: 


case  26: 


case  27 : 


case  28: 


case  29 s 


case  30: 


case  31: 


case  32: 


case  33: 
case  34: 
case  35: 


case  36: 


case  37: 
case  38: 
case  39: 
case  40: 
case  41: 
case  42: 


break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf ( " 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 

break  ; 
printf (" 
break  ; 


break  ; 
printf (" 

break  ; 
printf (" 

break; 
printf (" 
break  ; 


break  ; 
printf (" 
break  ; 
printf (" 
break  ; 
printf (" 
break  ; 
printf (" 


'INPUTS'  expected,  ]s  found\n" , 
errt[err_ptr] .nm)  ; 

'OUTPUTS'  expected,  ]s  found\n", 
errt[err_ptrj .nm)  ; 

'TYPES'  expected.  ]s  found\n", 
errt[err_ptr] .nm)  ; 

'{'  expected,  ]s  f ound\n" , 
errt[err_ptr] .nm)  ; 

'}'  expected.  ]s  found\n" , 
errt[err_ptr] .nm)  ; 

'INITIALIZE1  expected, ]s  found\n", 
errt[err_ptr] .nm)  ; 

'PRINTOUT'  expected,  ]s  found\n" , 
errt[err_ptr] .nm)  ; 

'DEFINE'  expected,  found  ,]s  \n" 
,errt[err_ptr] .nm)  ; 

name  ]s  is  a  keyword\n", 
errt[err_ptr] .nm)  ; 

count  =  ]d,  >>COMPILATION  discontinued\n" , 

err_count) ; 

'='  expected  after  ]s\n", 
errt[err_ptr] .nm)  ; 

]s  is  undeclared\n" , 
errt[err_ptr] .nm)  ; 

'('  expected  after  ]s\n", 
errt[errjptr] .nm)  ; 

]s  is  undefined  function\n", 
errt[err_ptr] .nm)  ; 

','  expected  after  ]s\n", 
errt[err_j3tr]  .nm)  ; 

')'  expected  after  ]s\n", 
errt[err_ptr] .nm)  ; 

unexpected  EOF\n"); 

missing  END\n")  ; 

incorrect  #  of  args.  on  LHS  ]s\n" 

,  errt[err_ptr] .nm)  ; 

in  syntax,  ]s  unrecognized  \n", 
errt[err_ptr] .nm)  ; 

count  =  10,  >>Compilation  discontinued\n" ) 
=  0,  ***END  OF  COMPILATION***\n")  ; 

1st  DELAY  index  is  >  lim\n"); 

2nd  DELAY  index  is  >  Lim\n"); 

missing  {\n")  ; 

missing  INITIALIZER" )  ; 


break  ; 
case  43s  printf(’ 
break  ; 
case  44:  printf(' 
break  ; 
case  45:  printf(‘ 
break; 

case  46:  printf(' 
break  ; 
case  47:  printf(' 


break; 

case  48:  printf( 
break  ; 
case  49:  printf( 
break  ; 
case  50:  printf( 


missing  1 ;'\n")  ; 
undefined  function\n")  ; 
missing  TYP£S\n")  ; 
missing  }\n")  ; 
missing  ' )'\n"); 
missing  DEFINE\n" ); 

incorrect  #  of  input  arguments  in  cail\n"); 
incorrect  #  of  out  arguments  in  call\n"); 


err  count  =  err_count  +  1  ; 
if  Terr  count  >  9) 

{ 

error (37)  ; 
outer ror()  ; 
exit(0)  ; 


-END  ERRMESSAGE- 


/A**************************************************************** 

*  * 

*  OUTERROR  SUBROUTINE  * 

*  * 

*********************************A*******************************  j 

/*  This  routine  outputs  all  errors  encountered  in  a  line  after  */ 

/*  entire  line  has  been  read.  */ 

outerror( ) 

{.  , 

int  i; 

i  =  0  ; 

while  (err_ptr  >=  0)  /*  if  error  count  for  a  line  is  >  0  */ 

{  /*  print  all  errors  encountered  */ 

errmessage(errt[i] .errno)  ; 
i  =  i  +  1  ; 

errjptr  =  err_ptr  -  1  ; 


-END  OUTERROR- 


/****************************************«************************ 

*  * 

*  ERROR  SUBROUTINE  * 

*  * 

a****************************************************************  j 

/*  This  routine  enters  the  error  number  and  the  name  of  the  wrong*/ 
/*  identifier  in  the  errt  (error  table).  The  errors  are  printed  */ 

/*  after  the  whole  line  has  been  scanned.  */ 

error(i) 

int  i  ;  /*  i  =  error  number  */ 


errjptr  =  err_ptr  +  1  ; 
errt[errjatr] .errno  =  i  ; 
strcpy(errt[err_ptr] .nm, token, 


/*  error  count  for  one  line  */ 
/*  errno  =  error  number  */ 

jbuf)  ; 

/*  copy  name  of  wrong  identi.*/ 


END  ERROR 


_ _  "s 

*  FIRST?  SUBROUTINE  ^******************/ 

f:  ESHS  &  -  **- 


firstpo 
extern .  int  fj? tpid,  found; 


/*  search  for  EXPAND  */ 

/*  expand  */ 


qetid(rl ,42)  ; 

Find  token 0  J  . 

whil*  (toknn!=6) 

if  (toknn  ==  21)  «  eof  error  */ 

I.  ,_n.  iS  what  we  expand;  -a-3 

sfound-O,  f’k  this  is  * 

i^g^TteEjwr^* 

S>'.  coj 

> ■■  - . 

tpid=pnmid; 
else 

Ilf f^a ;  1<-W*pi4>  i~> 

k?U  (typ«Ust[ilU1 

f  ...  t’unsll.! 


Utivcir  i 

I*  yes,  save  it  as  is  */ 


/*  no,  what  type  is  it#  */ 


i.  <t*>.U.t[ilUl  sname>„0)  /*  match#  */ 

i£  (,tr«p<tok«n_buf  typ.  »  V 


SstrOTp(tcX«n.buf,tVP--—  fVe  .n 

»trepy(tar«»t,pri»tU1  •na"2' '  /*  primitive  id  / 

%5h. 


IWUUJ* 

break; 

} 

else 

■i  /*' end  while  */ 
if  £found==l) 

x  bre/*;end  for  *1  A 

if  hi>^id)  &&  (found-0)) 

x  «rtr(tfU  else  */ 

ch4veT4rmpl'tpid'tarq: 

if  slound--0)  _  _  ,  . 


trlntf(,,I  couldn't  find  is  in  any 
print|(';\n\fP  ISvvly^  ’ 

fs$|Laj  “i"tion 

55i5f(hd,,.s«?tion); 

i*  /  nnt.lOn®”Z  / 
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aetid(rl ,42 
find  token ( 
} 

multi  mod(); 
fclose(rl) ; 

,i . 


exit(O) ; 

/*  end  if  toknn=21  */ 

h*2b 

ken( )  ; 


/*  look  for  INITIALIZE  */ 

/*  end  while  toknn  */ 

/*  do  multimodule  case  after 
/*  enumerated  EXPANDS 


■END  FIRSTP- 


j  •k-k'k'k-k'k-k'k'k'k-k-k'k-k'kick-k-k-k-k-k-k-k-k-k  irk-k-k  *********************************** 

*  SECONDP  SUBROUTINE  * 

*  * 

A****************************************************************  j 

/*  second  pass  routine,  expansion  is  carried  out  in  this  routine  */ 
/*  First  the  specs  for  user  program  are  copied  to  P1EXP.  The  func*/ 
/*  #  for  function  to  be  expanded  is  determined  at  the  same  time.  */ 
/*  Next,  the  function's  description  is  copied  to  SCR1.  The  user  */ 
/*  program  is  searched  for  any  call  to  function  to  be  expanded,  */ 
/*  The  code  from  SCR1  is  substituted  at  this  point.  The  expanded  */ 
/*  circuit  is  stored  in  SCR2.  Finally  P1EXP,  SCR2  are  appended  */ 
/*  along  with  the  simulation  specs  from  user  program.  */ 

secondp(expnum) 

int  expnum  ;  /*  expnum  =  expand  table  index  */ 

int  i,  j  ; 
count  =  0  ; 


/* — search  for  TYPES  in  user  prog  (copy  to  P1EXP) 
search(  rl,  wl,  -1,  3,  1,45;  ;  /*  45  =  missing 


L,  wl,  -1,  3,  1,45;  ;  /*  45  =  missing  TYPES  error 
■search  if  function  to  be  expanded  is  a  TYPE - 


/*  search  function's  name  in  TYPE  list  */ 


* - searcn  it  function  to  oe  expanded  is  a  type - *7 

while  (1)  /*  search  function  to  be  expanded.  Replace  it*/ 

{  /*  with  x's.  Find  its  fnum  and  put  in  expt  */ 

?etid(rl,4l)  ;  /*  41  =  missing  {  error  */ 

ind_token()  ; 

if  (toknn  ==  4  )  /*  '{'  then  break  */ 

break  ; 

pdelim(wl)  ;  /*  print  to  P1EXP  */ 

if  (toknn  !=  8)  /*  function  name,  not  an  INTERNAL  */ 

findprim()  ; 

if  (primid  >=  prim  count) 
error(30)  ; 

while  (l)  /*  search  function's  name  in  TYPE  list  */ 

getid(rl,43)  ;  /*  43  =  missing  ;  error  */ 

if  (strcmp(token_buf ,  expt ( expnum] . f name)  ==  0) 

expt [expnum] .fnum  =  primid  ; 

^strcpy(token_buf , "XXXXXXX" )  ; 

pdelim(wl)  ; 

if  (delimiter  ==  2)  /*  if  then  end  of  TYPE  list  */ 

break  ; 

}  /*  end  type  search  */ 

else  /*  INTERNALS  */ 

{ 

search(rl,  wl,  2,  -1,  1,43);/*  print  internals  as  is  */ 

/*  2  =  delim  (error  43}*/ 


/*  2  =  delim  ' ; ' 

/*  end  TYPES  */ 

- find  primid  for  the  function- 


(error  43)*/ 


if  (expt [expnum] . fnum  ==  -1)/*  if  no  types, then  find  function  #*/ 

strcpy(token_buf ,expt[expnum] .fname)  ; 
findprim()  ; 


if  (primid  >=  prim_count) 
error (30)  ; 
else 

expt[expnum] .fnum  =  primid  ; 


fclose(rl)  ; 


r2  = 
si  = 
while 

{ 


=  fopen("d:libl" , "r" )  ;  /*  li 
=  fopen("d:scrl","w“)  ;  /*  s 
ile  (1)  /*  find  the  functio 


find  function  in  lib - --- - 

r“)  ;  /*  library  */ 

w“)  ;  /*  scratch  file  for  function  */ 

nd  the  function  to  be  expanded  in  the  lib 


?etid(r2,44);  /*  44  =  function  not  found  in  lib  */ 
ind_token()  ; 

if  ( toknn  ==  0)  /*  MODULE  */ 

getid(r2,33)  ; 

if  (strcmp(tofcen_buf ,  primt[(expt[expnum] .fnum)] .nam2)  ==  0) 
break  ; 

,  ! 


/* - function  found - 

/* - store  inputs,  outputs  on  stacks - 

getid(r2,33)  ;  /s  INPUTS  */ 

mcount  =  0  ? 
while  (1) 

{ 

?etid(r2,43)  ;  /*  43  =  missing  ;  error  */ 

ind_token()  ; 

if  (toknn  ==  2)  /*  OUTPUTS  */ 

break  ; 
else 

strcpy(instack[incount] ,token^buf)  ; 
incount  =  incount  +  1  ; 

}  } 

outcount  =  0  ; 

while  (1)  /*  OUTPUTS  */ 

getid(r2,45)  ;  /*  45  =  missing  TYPES  error  */ 

rind_token()  : 

if  (toknn  ==  3)  /*  TYPES  */ 

break  ; 
else 

strcpy(outstack[outcount] ,token_buf)  ; 
outcount  =  outcount  +  1  ; 

/* - --TYPES  should  be  tacked  by  function  name* 

/* - save  types  on  a  typstack - 

typcount  =  0  ; 
while  (1) 


getid(r2,41)  ; 
find_token()  ; 
if  (toknn  ==  4) 
break  ; 
else 

if  (toknn  ==  8) 


/*  41  =  missing  {  error  */ 
/*  (  */ 


/*  INTERNALS  */ 


pdelim(sl)  ;  /*  internals  are 

search(r2,sl,2,-l,l,43) ;/*  so  that  they 

/*  'occurance'  ti 

Lse  /*  TYPE  declarations  */ 


copied  on  to  SCR1*/ 
can  be  reproduced*/ 
imes  at  the  end  */ 


pdelim(wl)  ;  /*  function  types  are  tacked  by  the  name  */ 

while  (1)  /*  of  the  function  to  be  expanded  */ 

{  /*  They  are  saved  on  a  stack  so  that  it  */ 

/*  can  be  determined  in  its  desc.  if  a  */ 
/*  type  is  used  (will  be  tacked  similarly)*/ 
getid(r2,43)  ;  /*  43  =  missing  ;  error  */ 

strcpy(typstack[typcount] ,  token_buf)  ,- 
typcount  =  typcount  +  1  ; 
for  (i=0;i<5;i=i+l) 

^if  ( token Jsuf [i]  ==  1 \0 1 ) 
break  ,* 

} 

£ol  ^  VirV  5f  ^  ^  +  1) 

token_buf  3]  =  '  1  ? 

token  buff 5  =  primtf expt[expnum] .fnuml .nam2 [01  ; 

token_buf[6  =  primt[expt[expnum] .fnum] .nam2[l J  ; 


token“buf  [61  =  primtf 
tokenlbufm  =  ^\0‘  ; 
pdelim(wl)  ; 
if  (delimiter  ==  2) 
break  ; 


fprintf (si,"  {  \n") 
count  =  0  ; 


/* - write  structural  desc.  to  SCR1 - 

while  (1) 

{ 

search(r2,  si,  4,  5,  1,46);/*  4  =  '='  5  =  '}'  */ 

/*  write  structural  description  to  scr  file  */ 
/*  Types  are  tacked  by  function's  name  */ 
if  (toknn==  5) 
break  ; 

?etid(r2,46)  ;/*  46  *  missing  }  error  */ 
type ( )  ; 

if  (ft  1=  0)  /*  indicates  type  declared  */ 

for  ( i  =  0 ;  i  <  5 ;  i=i+l) 

^if  (token_buf [i]  ==  ' \0 ' ) 
break  ; 

} 

£oi  =v,iir^ i <  5i  r  j  + 

token_buf  3]  =  '  1  : 

token  buffs  =  primtf exptfexpnum] .fnuml .nam2[0l  ; 
token  buf '6  =  primtf exptfexpnum] .fnum] .nam2[l]  ; 

token_buf[7]  =  1 \0 1  ; 


pdelim(sl)  ; 

search(r2,  si,  5,  -1,  1,47);  /*  5  =  ')'  */ 

/*  outputs  */ 

count  =  0  ; 

}  ,  s 

fclose(wl)  ; 
fclose(sl)  ; 
fclose(r2)  ; 
count  =  0  ; 

cexpand(expnum) ;/*pand  the  primitive  whenever  it  occurs  in  ckt  */ 


■END  SECONDP- 


/***************************************************************** 

*  * 

*  PDELIM  SUBROUTINE  * 

*  * 

★★A**************************************************************  j 


/*  prints  delimiter  on  the  file 


pdelim(wx) 
FILE  *wx  ; 


fprintf(wx,"  ]s",token_buf)  ; 
count  =  count  +  1  ; 
switch(delimiter) 

case  8  :  fprintf (wx,"  ")  ; 

break  ; 

case  7  :  fprintf  (wx, 11  \n")  ; 
count  =  0  ; 
break  ; 

case  6  s  fprintf(wx,"  (")  ; 
break  <• 

case  5  :  if  (pnnt_select==0) 

fprintf(wx,"  )"); 
break; 

.  » 

else 


£printf(wx,"  )  ;  \n“); 


count=0 ; 
break; 

} 

case  4  :  fprintf (wx, "  =")  ; 
break  ; 

case  3  :  fprintf (wx,"  s")  ; 
break  ; 

case  2  :  fprintf (wx, "  ;\n") 
count  =  0  ; 
break  ; 

case  i  s  fprintf (wx,"  ,")  ; 
break  ; 

if  (count  >=  7) 

{ 

fprintf(wx,"  \n")  ; 

^ count  =  0  ; 


■END  PDELIM- 


/***************************************************************** 

*  * 

*  FCOPY  SUBROUTINE  * 

*  * 

*********y  ***********************************y ******************* i 
/*  copies  one  file  in  another  */ 


fcopy(rr,  ww) 

FILE  *rr,  *ww  ; 

{. 

int  C  ; 

while  <(c  =  getc(rr))  !=  EOF) 
putc(c,ww)  ; 


,  ww) 
,  *ww 


putc(c,ww)  ; 


-END  FCOPY - 


j ************************************************************** ** * 

*  COPY_NOEND  SUBROUTINE  * 

************  *************  ********************************  ********  J 

/*  copies  one  file  in  another  without  the  EOF  */ 


copv_noend( inf , outf ) 
FIlE  *inf ,*outf ; 


int  pdone,- 
pdone=0 ,- 
print  select=l ,- 

?etid(inf ) ; 

ind_token() ; 
while  (pdone==0) 

switch  (toknn) 

case  3:  p 


case  6: 


pdelim(outf ) ; 
getid(inf ,33) ; 
rind_token( ) ; 
if  (toknn==4) 

fprintf (outf , 1 

break; 

print_select=l ; 
pdelim(outf ) ; 
getid(inf ,33) ,- 


/*  read  the  token  from  file  */ 
/*  see  what  it  is  */ 
/*  quit  when  we  see  END  */ 


/*  write  the  TYPES  token  */ 

/*  and  get  the  next  one  */ 

/*  check  for  no  TYPES  */ 

\n");  /*  no  types,  start  new  line  */ 


find_token() ; 
if  ( toknn==7 ) 

fprintf (outf ,"  ; 
break; 

case  9:  print_select=0; 

pdelim(outf ) ; 
getid(inf ,33) ; 
find_token( ) : 
if  (toknn==6) 

fprintf (outf , "  ; 
pdelim(outf ) ; 
getid(mf  ,33) ; 
find_token() ; 
if  Ttoknn==7) 

^  fprintf (outf ," 

break; 

case  20 :  pdone=l ; 

break; 

defaults  pdelim(outf ) ; 

getid(mf  ,33) ; 
find  token(); 
break; 

}  /*  end  switch  (toknn)  */ 

}  /*  end  while  (toknn)  */ 

print_select=0; 


/*  write  the  INITIALIZE  token  */ 
/*  check  for  sequence  of  */ 

/*  INITIAL:;  PRINTOUT:  */ 

/*  is  this  PRINTOUT#  */ 

\n") ;  /*  yes,  start  new  line  */ 

/*  write  the  DEFINE  token  */ 

/*  check  for  sequence  of  */ 

/*  DEFINE:;  INITIAL:;  PRINTOUT:  */ 
/*  is  this  INITIAL#  */ 

\n");  /*  yes,  print  new  line  */ 

/*  then  print  INITIAL  */ 

/*  is  this  PRINTOUT#  */ 

'  ;  \n")?  /*  yes,  print  new  line  */ 


/*  write  the  token  */ 

/*  and  get  the  next  one  */ 


-END  COPY  NOEND- 


J'k'k'k'k  •kirk’k'k'k  'k'k'k'k  'k'k'k-k'k'k  A*  'k'k'k’k'k'k'k  'k'k'k'k  'k'k'k'k'k'h  *******  A****************** 

*  REVERSE  SUBROUTINE  * 

•k  k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk J 

/*  reverses  a  string  */ 

reverse  (s) 
char  s[]  ; 


int  c.  i,  j  ; 

for  (i=0,  j  =  6;  i  <  j;  i++,  j--) 

C  =  S[i]  ; 

Si  =  S[j]  ; 

SIDJ  =  C  ; 


END  REVERSE 


/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

*  ITOA  SUBROUTINE  * 

*  * 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  j 

/*  changes  a  integer  value  to  ASCII  code  */ 

itoa(n,  s) 
char  sf]  ; 
int  n  ; 

{.  . 

Ult  1  ; 

i  =  0  ; 
do  { 

s[i++]  =  n  ]  10  +  'O'  ; 

}  while  ((n  /=  10)  >  0)  ; 
reverse (s)  ; 

} 

/* . END  ITOA . . */ 


/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

*  FTYPE  SUBROUTINE  * 

A  A 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  j 

/*  It  finds  if  a  type  for  the  function  name  in  the  primitive's  */ 
/*  description  has  been  declared,  ft  =  1  indicates  this  */ 

ftype() 

int  i  ; 
ft  *  0  ; 

for  (i  =  0;  i  <  typcount;  i  =  i  +  1) 

if  (strcmp(token_buf ,  typstack[i])  ==  0) 

ft  =  1  ; 
break  ; 

/* . END  FTYPE . */ 


/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

*  CEXPAND  SUBROUTINE  * 

*  * 


***************************************************************** J 

/*  expands  a  primitive  for  user's  request  */ 

cexpand(exnum)  /*  expand  primitive's  occurance  */ 
int  exnum  ;  /*  exnum  =  expand  table  index  */ 

int  i  ; 

s2  =  fopen("d:scr2" ,"w")  ;  /*  expanded  desc  */ 

rl  =  fopen("d:pll" ,  "r")  j  /*  user  prog  */ 

occurance  =  0  ;  /*  #  of  times  call  to  function  is  made  */ 

/*  internals  will  be  duplicated  this  #  */ 
search(rl, rl, -1,4,0, 41) ;  /*  find  circuit  description  */ 

/a  4  -  {  a/ 

. . . */ 

Skip  =  0  ; 
while  (1) 

{ 

ckt  line(&outlcount,  rl ,outlstack,  &inlcount,  inlstack,  &skip)  ; 
if  Tfound_end==l)  /*  find  an  ENDSWAP  while  in  cktlme#*/ 

round_end=0;  /*  sure  did,  set  up  for  the  next  one*/ 

fprintf(s2,"  ENDSWAP  ;  \n");  /*  write  the  keyword  onto  SCR2  */ 


if  ( found_start==l) 


/*  find  a  SWAPLIN  while  in  cktline#  */ 


found_start=0;  /*  yes,  get  ready  for  the  next  one  */ 

fprintf (s2, "  SWAPLIN  ;\n");  /*  write  the  keyword  onto  SCR2  */ 


if  (skip  ==  1) 
break  ; 


/* - print  same,  or  substitute  code - 

if  (strcmp(savfunc,  exp t [ exnum] . f name)  ==  0) 

if  (outlcount  !=  outcount) 
error (50)  ; 

if  (inlcount  !=  incount) 
error(49)  ; 
if  (err_count  ==  0) 

{ 

substitute ()  ;  /*  substitute  the  primitive's  code  */ 

occurance  =  occurance  +  1  ; 

,  ’ 

else  /*  print  the  code  as  is  */ 

for  (i  =  0;  i  <  outlcount  ;  i  =  i  +  1) 

strcpy(token_buf ,  outlstack[i] )  ; 
delimiter  =  1  ;  /*  .  */ 

if  (i  ==  (outlcount-l) ) 
delimiter  =4  ;  /*  =  */ 

^pdelim(s2)  ;  /*  SCR2  */ 

strcpy( token buf ,  savfunc)  ; 
delimiter  =  5  ;  /*  (  */ 

pdelim(s2)  ; 

for  (i  =  0;  i  <  inlcount;  i  =  i  +  1) 

strcpy(token  buf,  inlstack[i])  ; 
delimiter  =  I  ; 
if  (i  ==  ( inlcount- 1) ) 
delimiter  =  5  ;  /*  )  */ 

^pdelim(s2)  ; 

count  =  0  ; 
fprintf(s2  ;\n")  ; 

}  /*  end  else  */ 


fclose(s2)  ; 


-END  CEXPAND- 


*  SUBSTITUTE  SUBROUTINE  * 

*  * 

***************************************************************** j 

/*  copies  function's  code  from  si  to  s2.  Internals  are  tacked  by  */ 

/*  occurance  number  */ 

substitute () 

{. 

mt  l,  skipl  ; 

si  =  fopen("d:scrl" ,  "r")  ,-  /*  function's  description  */ 

search(sl , si , -1 ,  4,  0,41)  ;  /*  find  description  */ 

/*  4  -  i [.  */ 

/* . OUTPUTS . */ 

skipl  =  0  ; 
while  (1) 

{ 

ckt_line(&out2count,  si,  out2stack,  &in2count,  in2stack,&skipl)  ; 


k 


P 


*’4»v 

•&J 

:**#l 


»*v 

& 


if  (skipl  ==  1) 
break  ; 

/* . write  to  SCR2  (s2) . */ 

/*inputs/outputs  are  replaced  by  corresponding  names  from  in/outl*/ 
for  (i  =  0;  i  <  outzcount;  x  *  i  +  l) 

foutorder(out2stack[i] )  ; 
if^(outorder  !=  -1) 

strcpy(token„buf ,  outlstack[outorder] )  ; 
else 

finorder(out2stackfi] )  ; 
if  (inorder  !=  -1  ) 

{ 

strcpy(token_buf ,  inlstack[inorder] )  ; 
else 

tack(occurance,out2stack[i] )  ; 

delimiter  =  1  ; 

if  (i  ==  (out2count  -  1)) 

delimiter  =  4  ;  /*  =  */ 

pdelim(s2)  ; 


strcpy(token  buf ,  savfunc)  ; 
delimiter  *  5  ;  /*  (  */ 

pdelim(s2)  ; 

for  (i  =  0;  i  <  in2count;  i  =  i  +  1) 

finorder(in2stack[i] )  ; 
if  (inoraer  !=  -1) 

{ 

strcpy(token_buf ,  inlstack [ inorder] )  ; 
else* 

foutorder(in2stack[i] )  ; 
if^(outorder  !=  -1; 

strcpy(token_buf ,  outlstack[outorder] )  ; 
else 

tack(occurance,in2stack[i] )  ; 


delimiter  =  1  ; 
if  (i  ==  (in2count 
delimiter  =  5  ; 
pdelim(s2)  ; 


fprintf(s2,"  ;\n")  ; 
count  =  0  ; 

}  /*  end  while  */ 

fclose(sl)  ; 


■END  SUBSTITUTE- 


j AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

*  F0UT0RDER  SUBROUTINE  * 

*  a 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  j 


foutorder(s) 
char  s[]  ; 

{. 

mt  i  ; 

for  (i  =  0;  i  <  outcount;  i  =  i  +  1) 


itti 


if  (strcmp(s,  outstack[i])  ==  0) 
break  ; 

il  (i  >=  outcount) 
outorder  =  -1  ; 
else 

outorder  =  i  ; 


-END  FOUTORDER- 


j  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk  kkkkkk  ***************************** 

*  FINORDER  SUBROUTINE  * 

■k  k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk / 

f inorder (s) 
char  s [ 1  ; 

{. 

int  X  ; 

for  (i  »  0;  i  <  incount;  i  =  i  +  1) 

if  (strcmp(s,  instack[i])  ==  0) 
break  ; 

il  (i  >=  incount) 
inorder  =  -1  ; 
else 

inorder  =  i  ; 

} 

/* . END  FINORDER . */ 


J kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  CKT_LINE  SUBROUTINE  * 

k  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk J 

/*  This  routine  reads  one  line  of  circuit  description  and  stores  */ 

/*  inputs,  outputs  in  proper  arrays  */ 

ckt_line(oocountf  rx,  oostack,  iicount,  iistack,  skipl) 
int  *oocount,  *ixcount,  *skipl  ; 

FILE  *rx  ; 

char  oostack[] [8] ,  iistack[][8]  ; 

/*  Outputs  */ 

*oocount  =  0  ; 

while  (1)  /*  put  outputs  on  out  stack  */ 

?etid(rx,46);/*  46  =  missing  }  error  */ 
ind  token ()  ; 

if  (toknn==24)  /*  did  we  find  an  ENDSWAP#*/ 

found  end=l:  /*  yes,  tell  CEXPAND  */ 

?etid(rx,46);  /*  get  the  next  token  */ 

ind_token( ) ;  /*  and  see  what  it  is  */ 

if  jtoknn==23)  /*  find  a  SWAPLIN  too#  */ 

found start=l;  /*  yes,  tell  CEXPAND  */ 


bund  end=l : 
etid(rx,46) ; 
ind_token() ; 


if  ( toknn==23) 

foundstart=l; 

?etid(rx,46) ; 
ind_token() ; 


if  (toknn  ==  5)  /*  }  */ 

’“'skipl  =  1  ; 

^break  ; 

strcpy(oostack[*oocount] ,  token  buf)  ; 
★oocount  =  *oocount  +  1  ; 


/* 


if  (delimiter  ==  4)  /*  =  */ 

break  ; 

}  /*  end  while  outputs  */ 


■*/ 


/* 


if  ((*skipl)  !=  1) 

getid(rx,33)  ;  /*  function  name  */ 

strcpy(savfunc,  token  buf)  ; 

- INPUTS - */ 

*iicount  =  0  : 
while (1)  /*  inputs  */ 

getid(rx{47)  ;  /*  47  =  missing  !)'  error  */ 

strcpy(iistacfc[*iicount] ,  token  buf)  ; 

*iicount  =  *iicount  +  l  • 
if  (delimiter  ==  5)  )  */ 

break  ,- 

} 


/ 


} 


■END  CKT_LINE- 


-*/ 


j ***************************************************************** 

*  SEARCH  SUBROUTINE  * 

*  * 

*****************************************************************/ 
/*  searchs  by  a  defined  string  */ 

search(xi,  xo,  delm,  tokm,  fg,ernum) 

FILE  *xi,  *xo  ; 

int  delm,  tokm,  fg,  ernum  ; 

while  (1) 

getid(xi, ernum)  ; 

if  (fg  ==  1) 

pdelim(xo)  • 
if  (delimiter  ==  5) 

^fprintf (xo,"  ;\n")  ,* 
count  =  0  ; 

} 


ii 


)* 


} 


(delimiter  ==  delm) 
break  ; 
find_token()  ; 
if  (toknn  ==  tokm) 
break  ; 


■END  SEARCH- 


-*/ 


/***************************************************************** 

*  TACK  SUBROUTINE  * 

*  * 

********************************** A****************************** j 


tack(occ,iobuff) 
int  occ  ; 
char  iobuff[8]  ; 

int  i,  j  ; 
s  t rcpy ( token  buf , 
for  (1  =  0;  I  < 

^if  (token_buf [i] 
break 


iobuff)  ; 
i  =  i  +  1) 

==  ' \0 ' ) 


for  (3=iiJ<7;]=]+ 
token  buffi]  =  1  '  ; 
token_Euf[7]  =  ' \ 0 1  ; 
reverse (token_buf)  .* 
itoa(occ,  token_buf)  ; 

}* . 


1) 


END  TACK- 


■*/ 


/***************************************************************** 

■k  * 

*  MULTI_MOD  SUBROUTINE  * 

■k  i k 

*****************************************************************  j 

/*  This  routine  handles  sub  modules.  All  sub-modules  are  tacked  */ 

/*  to  the  library  (STRUC)  in  the  front.  Also  expand  table  is  */ 
/*  incremented  for  each  sub-module.  */ 

multi  mod() 

{ 

lil  =  fopen(,ld:libl"/Mw")  ; 
while(l) 


getid(rl,34)  ; 
find_token()  ; 
if  (toknn  ==  20) 
break  ; 

if  (toknn  ==  0) 


/*  34  =  missing  END  error  */ 
/*  END  */ 

/*  MODULE  */ 


pdelim(lil)  ; 

getid(rl,33)  ,-  /*  sub  module  name  */ 

strcpy(primt[prim  count] .nam2,  token_buf) 
strc^y(expt [expcount] . fname,  token_buf) 


exptlexpcount]  .fnum  =  prii.. 
prim_count  =  prim_count  +  I 


rimcount 


} 


} 


expcount  =  expcount  +  1  ; 

pdelim(lil)  : 

search(rl ,  111,  -1,  5,  1, 


1,46);  /*  5  =  }  */ 


tl  =  fopen("d;struc" ,"r")  ; 
f copy (tl, lil)  ; 
fclose(tl)  ; 
fclose(rl)  ; 
fclose(lil)  ; 

} 

/* . END  MULTI  MOD - 


■*/ 


I ***************************************************************** 

*  F ADVANCE  SUBROUTINE  * 

*  * 
I************************************  A****************************  J 

/*  advances  a  number  of  spaces  in  the  file  and  returns  to  the  */ 
/*  beginning  of  the  next  line  */ 

fadvance(tl ,numm) 
int  numm  ; 

FILE  *tl  ; 

{ 

filecount  =  filecount+  numm  ; 
if  (filecount  >  22) 


filecount  =  0  ; 
fprintf(tl,"  \n") 


■END  F ADVANCE- 


■*/ 
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/***************************************************************** 
*  * 


*  HASHF  SUBROUTINE  * 

*  * 

A****************************************************************  J 


hashf(s)  /*  finds  hash  value  for  string  s  */ 
char  *s ; 

{ 

int  hashval  ; 

for  (hashval  *  0;  *s  !=  ‘ \0 '  ;) 

hashval  +=  *s++  ; 
test(&hashval) ; 
hashtable [hashcount] =hashval ; 
hashcount++; 
return  (hashval)  ; 

/* . END  HASHF- 


/*  convert  from  string  to  #  */ 
/*  and  test  for  collision  */ 


/****************************************** *********************** 

*  TEST  SUBROUTINE  * 

*  * 

*****************************************************************  j 

test (value) 
int  *value; 

{  .  . 

int  1; 

for  ( i=0 ;  i<hashcount;  i++) 

if  (hashtable [ i] ==(*value ) )  /*  hashtable  collision#  */ 


t*value)=(*value)+ll; 
test(value) ; 


/*  hashtable  collision#  */ 

/*  yes,  add  a  prime  number..*/ 
/*  and  test  again  */ 


APPENDIX  B 

THE  PRECOMP  ROUTINES 


/  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k  i k 

*  Precompilation  Routines  * 

*  f  nr  t'h»  rnmnil#r  * 


A 

A 

A 

A 


including:  structural  expansion  handling 
USING  handling 

to  be  used  with  the  version  3.1  of  the  CADD  program 


* 

k 

k 

k 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk j 

ttinclude  "  lc\stdio.h"  /*<stdio.h>  in  DOS  3.x  environment  */ 


tdefine  maxkey  29 
^define  maxprim  100 
#define  maxouts  32 


/*  maximum  number  of  keywords  */ 
/*  maximum  number  of  primitives  */ 
/*  maximum  of  32  outputs  per  prim  */ 


/* . GLOBAL 

extern  int  strcpyQ  ; 
extern  int  strcmpO  ; 
extern  int  getid() 
extern  int  find_token()  ; 


extern  int  findprim()  ; 
extern  int  pdelim()  ; 


extern 
extern 
extern 
extern 
extern 
extern 
extern 
/* - 


int  fcopy()  ; 

IS?  i J 

int  search()  ; 
int  multi  mod(); 
int  seconap(); 
int  tack( ) ; 


DECLARATIONS . */ 

/*  copies  one  string  to  another  */ 

/*  string  comparison  */ 

/*  get  next  identifier  */ 

/*  returns  the  token  number  */ 

/*  (keyword  table  index)  */ 

/*  the  given  function  name/type  */ 

/*  finds  primitive  library  index*/ 

/*  prints  a  file  of  keywords  and  */ 

/*  tokens,  separated  by  delimiters*/ 

/*  file  copying  routine  */ 

/*  copies  everything  but  END  token  */ 

/*  scans  one  line  of  ckt  desc.  */ 

/*  search  a  delimiter  or  toknn  */ 


*/ 


/* . DATA  STRUCTURES . */ 

struct  prim  tab  {  /*  Primitive  table  :  */ 

char  namrai  ;  /*  primitive  table  */ 

char  nam2[8]  ;  /*  EXTENDED  primitive  table  */ 

int  numpar,  outp  ;  /*  numpar  =  no.  of  parameters  */ 

int  normld,  fanout  ;  /*  for  the  function  */ 

int  technology,  over. Id  ;  /*  outp  =  #  of  outputs  */ 


struct  namepair  { 
char  e_from[8] ; 
char  e_to[8J; 


/*  this  holds  system-generated  */ 
/*  expansion  requests  */ 


struct  swapname  { 
char  sname[8]; 
int  used; 


/*  each  of  these  nodes  will  contain  a  module  */ 
/*  specified  in  the  USING  parameter  list  */ 
/*  this  indicates  whether  used  or  not  */ 


struct  functable  { 
char  fnname[8]; 
int  level; 

}; 


/*  each  of  these  nodes  will  contain  */ 
/*  a  function  and  level  for  a  library  */ 
/*  VOHL  module  */ 


struct  exp_tab  { 
char  fname[8] ; 


/*  expansion  table  */ 


/* . STORAGE  ALLOCATION 

extern  struct  prim_tab  prirntfroaxprii 
extern  struct  swapname  typelist[max] 
extern  struct  swapname  swaplist  '20] 
extern  struct  namepair  reqtable[max] 
extern  struct  exp_tab  expt[30]; 


/*table  of  replacements*/ 
ING  parameter  storage  *// 


extern  char  userprg[8]; 
extern  int  expcount; 
extern  int  sfound; 
extern  int  req_count; 
extern  int  line_count; 
int  line_item; 
extern  int  swap_flag; 

int  expand_flag; 

int  found_start; 
int  found_end; 
extern  int  add_flag; 

extern  int  delimiter,  bb. 


extern  int  toknn  ;  / 

extern  int  cellcount; 
extern  int  prinpflag; 
extern  int  print_select; 


/*  number  of  system  expand  reqs  */ 

/*  line  index  for  swaplist  */ 

/*  index  within  single  line  */ 
/*  indicates  whether  all  of  this*/ 
/*  is  necessary  or  not  */ 

/*  indicates  need  for  additional*/ 

/*  expansion  declarations  */ 

/*  indicates  presence  of  SWAPLIN*/ 

/*  indicates  presence  of  ENDSWAP*/ 
/*  set  if  cell  is  to  be  added  to*/ 
/*  primitive  library  */ 

skip  ;  /*  delimiter  =  delimiter  type 

/*  bb  =  buff[80]  index  (line)  */ 


extern  int  prim_cqunt,  primid 


b,  skip  ;  /*  delimiter  =  delimiter  type  */ 

/*  bb  =  buff[80]  index  (line)  */ 

/*  err  count  =  error  count  */ 

/*  #  of  MODULES  in  user  program  */ 
/*  controls  printing  of  source  */ 

;  /*  determines  whether  a  1 ) 1  causes*/ 

/*  a  linefeed  or  not  (default=no)*/ 
primid  ;  /*  prim_count  =  #  of  primitives  */ 


extern  int  sys_prims;  /*  number  of  system-defined  prims*/ 

extern  int  features [maxpriml [21;  /*  used  to  describe  the  type  of  * 

/*  descriptions  available:  */ 

/*  -1  ->  empty  Q  ->  block  only  */ 

/*  1  ->  dsstruc  only  2  ->block  &  struc  */ 
extern  int  append  table [maxprim] ;  /*  keeps  track  of  the  functions*/ 
extern  int  append_index;  /*  we've  added  to  the  user  program  */ 
int  modules_to  do; 


/*  we've  added  to  the  user  program  */ 

/*  number  of  STRUC-only  additions  to  do  */ 

'/A _ _ _ _ _  f 4  _ • A  / 


extern  char  instack [maxouts j [6] ,  outs tack [maxouts] [8]  ? 
extern  int  incount  ,  outcount  : 

extern  int  count  ;  /*  for  printing  on  the  file  */ 

extern  char  savfunc[8]  ; 
int  maxpid; 


extern  FILE  *rl  ;  /*  pointer  to  input  data  file  */ 

extern  FILE  *r2  ;  /*  pointer  to  STRUCT  library  */ 

extern  FILE  *r3  ; 

extern  FILE  *r4  ; 

extern  FILE  *wl  ;  /*  pointer  to  expanded  file  P1EXP  */ 

extern  FILE  *tl  ; 

extern  FILE  *sl  ; 

extern  FILE  *s2  ; 

/* . V 

/****************************************************************★ 

'  *  * 

*  COUNTCELLS  subroutine  * 

*  * 

***************** a***** ****** ****** ****************************** j 
countcells(lookfile) 

FILE  *lookfile; 

{ 


/*  pointer  to  expanded  file  P1EXP  */ 


int  start  looking; 
start  looking=0 ; 


getidTlookfile,33) ; 
find  token?) ; 

if  (?toknn>25)  &&  (toknn<maxkey) ) 
start_looking=l  ; 

while  (toknn!=5) 

{ 

if  (toknn==0) 
cellcount++; 

?etid(lookfile,33)  ; 
ind_token() ; 

etid(lookfile,33)  ; 
ind  token?) 


/*  first  keyword  an  add  key?*/ 


/*  yes,  start  looking  for 
/*  a  missing  DEFINE. 

/*  take  a  look  at  the  1st 
/*  module. . . 

/*  find  a  MODULE  token?  */ 
/*  yes,  update  count  */ 


/*  read  the  next  token 
/*  should  be  a  DEFINE 


*/ 

*/ 

*/ 

*/ 


*/ 

*/ 

V 


if  (Xtoknn!=9)  &&  (start_looking==l) )  /*  is  it?  if  not... 

/*  this  is  a  cell  addition  only.*/ 

\n"); 

/*  note — if  this  is  just  a  */ 


no^.compilation=l ;  , 

printfC'no  compilation  this  pass\ 


} 


while  (toknn!=20) 

if  ( toknn-=0 ) 
cellcount++; 
getid(lookfile,33); 
£ind_token() ; 


/*  missing  DEFINE,  let  Ausif*/ 
/*  handle  it.  After  all,  he  */ 
/*  wrote  this  thing  <gnn>.  */ 
/*  scan  the  rest  or  the  ckt  */ 

/*  find  a  MODULE  token?  */ 


/*  yes,  update  count 


*/ 


}*■ 


} 


■END  COUNTCELLS- 


/***************************************************************** 

*  BUILD  subroutine  * 

*  * 


***************************************************************** / 
1  J  /  \  /4r  U..J  1  J  _  fTAIff  r  J  1  .  .  '  1.L _ a'/ 


build() 

FILE  *adds,*specs; 

int  adflag,  current_primitive; 

int  i, j ,skipl,done; 

int  found,  divert; 

char  bufferl[8l; 

add  f laq=0 ; 

adflaq=0 ; 

done=o ; 

divert=0; 

maxpid=0; 

print  select=l ; 

adds=ropen("d:newckts.vhl" ,"w") ; 
specs=fopen( "d: specs" , "w" ) ; 
etid(rl ,33] 


/*  build  a  VOHL  file  with  no  */ 

/*  END  keyword  */ 

/*  modules  added  go  here  */ 

/*  used  locally  for  each  module  */ 

/*  temporary  string  buffer  */ 


/*  largest  primid  encountered  */ 
/*  newline  after  1 ) '  */ 


ind_token(,  . 
while  (done==0 ) 
{ 


if 


(toknn>25)  &&  (toknn<maxkey) ) 

/*  save  the  keyword  in  addition  file*/ 


add  f laa=l ; 
adflag=l; 
pdelim(adds 
getid(rl,33 
rind  token( 

} 

switch(toknn) 

case  Oj  divert=0; 

pdelim(r2) ; 


/*  save  MODULE  keyword 


*/ 
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if  (adflag==l ) 


count-- ; 

pdelim(adds) ;  /*  and  to  the  new  ckt  file  */ 


etid(rl ,33) > 
find_token( ) ; 
breaJc; 


case  3: 


pdelim(r2) ; 
if  (adf lag==l ) 


/*  save  the  TYPES  keyword 


count — ; 

pdelim(adds)  ,*  /*  and  to  the  new  ckt  file 


while  (1) 

{ 

getid(rl,33) ; 
find_token( ) ? 

if  (Ttoknn==8)  ||  (toknn==4)) 

/*  quit  for  INTERNA  or  {  */ 

break; 
pdelim(r2) ; 

find_token() ;  /*  find  out  what  we  just  read  */ 

findprim();  /*  it  might  be  a  prim,  so  check  */ 

if  |primid  <  prim_count)  /*if  this  is  a  primitive*/ 

current_primitive=primid; 

/*  next  IDs  will  be  of  this  type*/ 
if  (primid>maxpid) 
maxpid=primid; 

else 

{  /*  not  a  primitive,  so  add  it  */ 

while (typelistrcurrentorimitivel [i] .used==l) 
i++ ;  7*  look  for  next  free  space*/ 

strcpy { typelis t [current  jprimitive ] T i 1 . sname . 

token_buf ) ; 

typelist[current_primitive] [i] .used=l; 


if  (to 


^while  (1)  */ 


count=0 ; 
fprintf (r 
if  Tadfla 
fprint 


intf(r2,"  ;  \n");  /*  so 

(adflaq==l$; 

fprintf  (adds ,  11  ;  \n"); 


/*  if  a  ' { 1 ,  then  no  TYPES  */ 
/*  so  we  need  to  save  a  1 ; '  */ 


/*  write  the  ' { '  token  */ 


ietid(rl ,33) ; 
cind_token() ; 


break; 


5s  if  (adflag==l)  /*  if  token  is  a  then  */ 

{  /*  that's  the  end  of  this  */ 

adflag=0;  /*  module,  so  print  1 }'  and  */ 

fprintf (adds,"  }  \n");  /*  clear  the  addition  flag*/ 


pdeiim(r2) ; 
getid(rl,ii); 


case  6:  ue 


getid(rl,33) ; 
find  token () ; 
break; 


uexpand( ) ; 
print_select=l ; 
divert=0; 


/*  print  system  expand  reqs  */ 
/*  put  linefeeds  after  1 )  "s  */ 


/*  put  linefeeds 
/*  print  INITIAL 


)rs  */ 
*/ 


wwr»v.4»  \  /  / 

( toknn==7 ) 


"T Vh 


case  9: 


fprintf(r2," 

break; 

print_select=0; 


r2, "  ;  \n  "); 


/*  anything  to  DEFINE? 


print_select=0 ;  /*  no  linefeed  after  1 )'  */ 

pdelim(r2) ;  /*  print  DEFINE  token  */ 

getid(rl ,33} ;  /*  read  the  next  token  */ 

find_token( ) ; 

switch(toknn)  /*  anything  to  DEFINE?  */ 

case  6:  print_select=l ;  /*  no,  INITIAL  found  */ 

divert=0 ; 

fprintf (r2,"  ;  \n");/*  start  a  new  line  */ 
uexpand() ; 

pdelim(r2):  /*  and  print  INITIAL  */ 

getid(rl,33) ; 


/*  and  print  INITIAL  */ 


1  /* 

2  "  • 
*•/  / 


if  (toknn==7)  /*  no  INITIALized  params  */ 

u  fprintf (r2, "  ;  \n"); 

break; 

case  21:  divert=0;  /*  user  wants  EXPANDS  */ 

fprintf (r2,"  ;  \n");  /*start  a  new  line*/ 
uexpand():  /*  put  ours  first  though*/ 

pdelim(r2);  /*  now  print  user's  */ 

getid(rl,33); 


find  token(); 
break; 

default:  divert=l;  /*  DEFINE  params  present  */ 

fprintf(r2,"  ;  \n");  /*  start  new  line  */ 

fprintf (specs, "DEFINE:  "); 
pdelim( specs) ; 

break; 

■»  * 


break; 

case  20:  done=l; 

break; 

case  21:  divert=0; 

pdelim(r2) ; 
getid(rl ,33) ; 
find  token () ; 
break; 

case  22:  line_item=0;  t 

fprintf (r2, "SWAPLIN  1 
swap_f lag=l ; 
expand_flag=l ; 
found=(J; 
do 

getid(rl,47); 
find_token( ) ; 
if  jtoknn==25) 

expand_f lag=0 ; 


/*  END  token,  so  quit 
/*  EXPAND  */ 


expand_flag=0; 
|etid(rl,47) ; 


/*  USING--  here  we  go..  */ 

/*  temporary  file  */ 

;  \n" ) ;  /*  mark  this  ckt  line*/ 

/*we'll  be  doing  swaps*/ 
/*and  probably  calling*/ 

/*  for  expansions  */ 

/*  get  the  parameter  list  */ 

/*  is  this  a  NOEXP?  */ 

/*  don't  need  to  call  for*/ 
/*  expansions  */ 

/*  expand  to  this  TYPE  */ 


else  /*  expand  to  this  TYPE  */ 

if  ( found==0) 

ior  (i=0;  i<=maxpid;  i=i+l) 

3=0:  /*  need  to  find  it  in  list*/ 

while  (typelistfij [ j] ,used==l) 

if  (strcmp( token  buf, 

^  typelist[i]Ij] .sname)==0)  /*a  match?*/ 

strcpy(bufferl ,primt[i] .nam2) ;/*yes, save*/ 
found=l ,- 


break;  /*  and  continue  */ 

else 

j++;  /*  no,  look  at  next  TYPE  */ 

}  /*  end  while  typelist*/ 

if  ( found==l ) 
break; 

}  /*  end  for  */ 

,  }  /*  end  if  found  */ 

}  /*  end  else  */ 

strcpy(swaplist[line_count] [line_item] .sname, 

token_buf ) ;  /*one  by  one  */ 
swaplist[line_count] [line_item] .used=l; 
line^item++ : 

}  while  (delimiter  !=5);  /*  stop  for  a  1 V  */ 

ckt_line (&outcount , rl , outs tack , &incount , instack , 

,  .  &skipl); 

for  (i=0;  Koutcount-l ;  i++)  /*  write  outputs*/ 

fprintfCr2,"  Is  ,outstack[i] ) ; 
if  (adflag==l) 

rprintr(adas,"  ]s  , 11  ,outstack[i] )  ; 

fpnntf  (r2,"  ]s  =  11  ,outstack[i] )  ; 
if  (adflag==l; 

fprintf (adds,"  ]s  =  "outstackfil); 
fprintf(r2,M]s(",savfunc) ;  /*write  tne  function  name11 
if  (adflag==l) 

fprintf ( adds , " ] s ( " , savfunc ) ; 
for  (i=0;  Kincount-l;  i++)  /*  write  the  inputs*/ 


fprintf(r2,"  Is  , " ,instack[i] ) ; 
if  (adflaa==l) 

fprintf (adds,"  ]s  ,", instack (i] ) ; 

fprintf(r2  "  Is  )  ; \n", instack [i]); 
if  (adflacF=l) 

fprintf (adds,"  Js  )  :\n”, instackfi] ) ; 


if  (expand_flag= 


/*  need  to  call  for  expand?  */ 


for  (i=0;  i<req_count;  i++>  /*  yes,  see  if  */ 

\ ’  /*  already  did  */ 

if  (strcmp(reqtable[i] .e  from, savfunc)==0) 

break;  /*  if  already  marked  this*/ 

}  /*  one  then  ignore  it  */ 

if  (i==req_count) 


strcpy(reqtable 
strcpy(reqtable 
req_count++; 
expand_flag=0 ; 


[i] .e_to,bufferl) ; 
[i] ,e_from, savfunc) ; 


fprintf (r2,"  ENDSWAP 
line_count++; 
geti3(rl,33) ; 
find  token ( ) ; 
break: 

default:  if  jdivert==0) 

pdelim(r2) ; 
if  |adflag==l ) 

count — ; 
pdelim(adds) ; 

.  J  ^ 

else 

pdelim(specs) ; 


\n") ; 

/*  increment  swaplist  */ 
/*  then  read  next  token*/ 


getid(rl,33); 
find  token(); 
breaE; 

}  /*  switch  */ 

}  /*wnile*/ 
fclose(rl) ; 

fprintf(adds, "  END  ;  \n"); 
fc lose (adds) ; 

fprintf( specs,"  END  ;  \n"); 
fclose(specs) ; 

^rint_select=0 ; 

/* . - . END  BUILD* 


/*  and  read  the  next  one 


/*  END  the  file  */ 

/*  END  the  file  */ 

/*  restore  to  initial  state  */ 


/A******************************************** ********** ********** 
*  * 

*  UEXPAND  subroutine  * 

*  * 

******************************  Tfc*^******************************  **  J 

/*  This  routine  prints  any  system-generated  expansion  requests  */ 

/*  onto  the  file  r2  (OUTFILE) .  */ 

uexpand( ) 


mt  i; 


for  (1=0;  i<req_count;  i++) 

fpnntf(r2,"  EXPAND:  ]s  :  ]s  ;\n" , reqtable [i] .e_from, reqtable[i] .e_to) ; 


•END  UEXPAND- 


/***************************************************************** 

*  STRUC_EXPAND  subroutine  * 

*  * 

*****************************************************************  J 

struc_expand() 

int  skip,passdown: 
module s_to  do=celicount ; 
while  (expdone==0) 

getid(rl,41) ;  /*  scan  along  until  found  {  */ 


/*  repeat  until  we  find  a  1 } 1  */ 


?etid(rl,41) ;  /*  scan  along  until  found  { 

ind_token( ) ; 

while  (toknn!=4)  /*  looking  for  {  (indicates  */ 

{  /*  we're  in  the  circuit  proper)  */ 

?etid(rl,41) ;  /*  scan  along  until  found  {  */ 

ind_token( ) ; 

skip=0; 

while  (skip==0)  /*  repeat  until  we  find  a  '}■ 

ckt  line  (&outcount ,  r  1 ,  outs  tack ,  Sincount ,  instack ,  &skip ) ; 
if  Tskip==l) 

break;  /*  quit  */ 

else 

strcpy(token_buf , savfunc) ;  /*  get  the  function  na 

findprim();  /*  see  if  it  is  a  prim 

if  (primid<prim_count)  /*  yes,  but  is  it  a  va 


/*  quit 


cpy(token_buf, savfunc) ;  /*  get  the  function  name  and*/ 

dpnm();  /*  see  if  it  is  a  primitive  */ 

(primid<prim_count)  /*  yes,  but  is  it  a  valid  one?*/ 

i  /*  if  not,  let  Ausif  handle  it*/ 

if  ( features [primid] [0J==1)  /*  STRUC-only  description?  */ 


passdown=primid; 

rrfirssssii2^ 
j  }A H«rnid*/ 

/*while  skip  */ 


modules_to_do-- ; 


/*add  it  to  work  file  */ 


/*  hey,  finished  one 


cellcount-- ; 
if  (cellcount==0) 

rprintf(r2,  "END;  \n"); 
fclose(rl) ; 
fclose(r2) ; 
if  (modules  to_do==0) 
expdone=l ; 
else 


/*  decrement  the  cell  count  */ 
/*  cell  count  =0?  */ 

/*  yes,  place  the  END  on  the  */ 
/*  expanded  file  and  close  it*/ 

/*  modulesTodo  also  =  0?  */ 

/*  yes,  then  we're  finished  */ 


rl=fopen 

r2=fopen 


fcopy(rl,r2); 


/*  no,  further  expansion  is  */ 
("d:outfile","r") ;  /*  required — make  a  new  file  */ 
( "ds infile" ,"w") ;  /*  the  old  OUTFILE  becomes  */ 


/*  the  new  INFILE 


fclose(rl); 
fclose(r2) ; 

rl=fopen("d:infile" ,"r") ;  /*  build  the  new  OUTFILE  by  */ 

r2=fopen("d:outfile","w") ;  /*  copying  everything  but  the*/ 

copy_noend(rl,r2) ;  /*  END  token  */ 

fclose(rl) ; 

rl=fopen("d:infile","r") ; 

countcells(rl) ;  /*  count  the  #  of  cells  in  */ 

fclose(rl);  /*  this  new  input  file  */ 

rl=fopen( "ds infile" ,"r") ;  /*  now  that  we^ve  got  the  files*/ 

struc_expand() ;  /*  straight,  expand  recursively*/ 

*/*  else  */ 


■END  STRUC.EXPAND- 


/***************************************************************** 

*  APPEND  subroutine  * 

*  * 

*****************************************************************  ^ 
append(ptarget,writefile) 
int  ptarget; 

FILE  *writefile; 

int  a  index, done; 

FILE  *lookfile; 
done=0 ; 
aindex=0 : 

print_select=l ;  /*  put  linefeeds  after  ')'  */ 

do 

if  (append_table[aindex]==ptarget)  /*  already  added  this  one?*/ 

break;  /*  yes,  skip  */ 

aindex++; 

}  while  (aindex<=append_index) ; 

if  (aindex>append_index)  /*  no,  append  this  prim 


iookfile=fopen("d:struc"  ,"r") ; 
do 

?etid(lookfile,33)  ; 

indprim( )  ; 
find_token( ) ; 
if  (toknn==0) 


/*  no,  append  this  prim  */ 


/*  no,  wrong  primitive*/ 

/*  found  a  MODULE?  */ 

/*  yes,  is  it  the  right  one?*/ 
/*  get  the  primitive  name*/ 


?etid(lookfile,33);  /*  get  the  primiti 

indprim( ) ; 

if  ( (primid<prim_count)  &&  (primid=*ptarget) ) 

aone=l;  /*  yes,  quit 

fprintf (writefile, "MODULE  s  "); 
pdelim(writefile)  ; 
getid(lookfile,33) ; 


pdelim(writefile)  ; 
getid(lookfile,33) ; 
rind_token( ) ; 
while  (toknn!=3) 


pdelim(wntef  lie) : 

getid(Iookfile,33) ;  /*write  everything  down  to  TYPES*/ 
rind_token() ; 

slim(writefile) ;  /*  write  the  TYPES  token  */ 


/*  no  TYPES  ?  */ 


pdelim(writefile) ;  /*  write  the  TYPES  token  */ 

getid( lookf ile , 33 ) ; 

find_token(); 

if  (toknn==4)  /*  no  TYPES  ?  */ 

fprintf (writefile,  "  ;  \n");  /*  start  new  line  */ 
fprintf (writefile ,  "  {  \n");  /*  print  the  {  */ 

getid(lookfile,33) ;  /*  then  grab  token*/ 

rind_token() ; 

while  (toknn!=5)  /*  copy  down  to  1 } 1  */ 

pdelim(writefile) ?  /*  copy  the  token*/ 

getid(lookfile,33) ;  /*  and  get  the  next  one  */ 

rind_token{) ; 

pdelini(writefile) ;  /*write  the  */ 

append_table[append_index1=primid;  /*update  the  table  */ 
module s.rto_do++;  /*  I  hate  recursion  */ 

append_mdex++ ; 


/*  copy  down  to  1 } 1  */ 

/*  copy  the  token*/ 

/*  and  get  the  next  one  */ 


}  while  ( done==0 ) ; 
fclose^lookfile) ; 


print  select=0; 

}  7*  append  */ 


/*  restore  to  previous  state  */ 


-END  APPEND - 


/***************************************************************** 

*  * 

*  SWAP  subroutine  * 

■*  * 

A**************************************************************/ 

/  This  routine  is  invoked  after  expansion  and  just  before*/ 

/x  compilation.  If  there  are  any  requests  for  function  */ 

/*  name  substitution  with  USING,  they  will  be  handled  */ 

/*  here.  The  affected  lines  are  delimited  by  SWAPLIN  and  */ 

/*  ENDSWAP  keywords  which  will  be  removed  prior  to  compil-*/ 

/*  ation.  */ 

swap() 

int  skipl,  found,  i,  j; 
int  perform,  swaps; 

rl=fopen("d:pll" {"r") ;  /*  raw  file  is  Pll  */ 

wl=fopen("d:outfile" ,"w") ;  /*  processed  file  goes  here  */ 

f«tid(rl ,41) ; 
find_token( ) ; 
while  (toknn!=4) 

pdelim(wl);  /*  copy  down  to  the  '{'  */ 

?etid(rl,41) ; 
ind_token( ) ; 

pdelim(wl);  /*  write  the  */ 

swaps  *  -1; 

found_start=0 ; 

found_end=0 ; 

skipl=0 ; 

while  (1) 

ckt  line (&outcount , rl , outs tack, Aincount , instack , Askipl ) r 
if  Tskipl==l)  /*  quit  when  we  see  a  */ 

break; 

if  ( found_end=*l )  /*  find  an  ENDSWAP  while  getting  ckt  line*/ 


/*  copy  down  to  the 


/*  write  the 


V 


'f 


{ 


erform=0; 

round  end=0; 
>  — 


/*  no  need  to  check_ for  swags  */ 


if  ?found_start==l) 


{ 


erform=l ; 
found_start=0 ; 
swaps ++; 


if  (perform==l) 


/*  set  up  for  the  next  ENDSWAP  key  '*/ 

/*  find  a  SWAPLIN  keyword?  */ 

for  swaps 

*/ 

/*  check  for  swaps  on  this  ckt  line?  */ 


/*  need  to  start  looking  for  swaps  */ 
/*  set  up  for  next  SWAPlIN  key  */ 

/*  select  the  next  line  of  swaplist 


strcpy(token_buf , savfunc ) ;  /*move  function  name  to  token  buffer*/ 
findprim();  /*  and  see  what  type  it  is  */ 

i=0;  /*  initialize  USING  param  selector  */ 

if  i typelistfprimid] [0] .used==l)  /*  this  TYPE  is  user-defined?*/ 


found=0;  /*  yes.  initialize  to  "not  found"*/ 

while  (swaplist[swaps] [i] .used==l)  /*match  USING  param  list.*/ 

j  3E0  . 

while  (typelistfprimid] [ j] .used==l)  /*against  TYPE  list*/ 

if  <strcmp(swaplist[swaps] [il .sname, 

typelist[primia] [j] . sname )==0)/*a  match?*/ 

st 


strcpy(savfunc, typelist[primid] [j] .sna  ..... 
found=l;  /*  tell  outside  world  we're  done  */ 


,  sname) ;/*yes, swap*/ 


break; 

.  J 

else 

j++; 


/*  and  quit 


7 


if  (found==l) 
break; 
else 
i++  ; 


/*  no,  look  at  next  TYPE  */ 
/*  while  typelist*/ 

/*  are  we  done?  */ 

/*  yes,  look  for  next  substitution  */ 


}  /*  while  swaplist  */ 

if ,  (found^O) 


/*  no,  try  next  USING  parameter  */ 


{ 


printf ("couldn1 t  find  the  module  you  wanted  to  replace  ]s\n", 

savfunc); 

printf ("compilation  continues\n\n" ) ; 

}  /*  if  typelist  */ 

}  /*  if  perform  */ 

for  (i=0;  i<outcount-l ;  !+■+) 

fpnntf(wi  "  ]s  ,  "  .outstackf  i] ) ; 
fprintf (wl , "  ]s  =  ",outstack(ij); 
fprintf (wl ( " ] 3 ( " , savfunc) ; 
for  ( i*0 ;  i<incount-l;  i++) 

fpnntf(wi<"  ]s  , " ,  instackj i]  |  j 


/*  write  outputs*/ 


/*  write  the  function  name  */ 
/*  write  the  inputs*/ 


fprintf(vl,"  ]s 
]  /*  while  not  ski. 

delim( wl ) ; 
copy( rl , wl ) ; 
close (rl ) ; 
fclose ( wl ) ; 

rl*fopen( "d:outfile" ,"r"); 
r2=fopen( "d : specs" , "r" ) ; 
wl=fopen( "d :pi 1 " , "w" ) ; 
print  select=l : 

?etid7r 1,33); 

ind_token( , ■ 
while  toknn!=5) 


;  \n" , instack[ 


/ 


/*  write  the  1 } 1  */ 

/*  then  copy  rest  of  file*/ 


pdelim(wi ' : 

oe  1 1  d  i  r  1 ,  3  3  )  ; 


/*  copy  circuit  body  */ 


pdelim(wl) ; 
print  select=0; 
getidTr2,33) ; 
find  token(); 
if  (toknn==26) 

fprintf (wl , "DEFIN 
else 

while  (toknnl=20) 

pdelim(wl) • 
aetid(r2,3i) ; 
find  token (); 

i  1 

while  (toknn!=6) 

getid(rl,33) ; 
find_token() ; 

fdelim(wl) ; 
close(r2) ; 
fcgpy(rl.wl); 
fclose(rl) ; 
fclose(wl) ; 

)* . 


DEFINE:  ;\n"); 


copy  the  DEFINEd  parameters  */ 


/*  look  for  the  INITIAL: 


/*  copy  the  processed  file  */ 
/*  back  to  pjLl  */ 


■END  SWAP- 
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*  CHECK_DEEPER  subroutine  * 

*  * 

*****************************************************************  j 

check^dee^er ( f nam , targe tpid , targe tname ) 

int  targe tpid; 


xnt  targe tpid; 
char  targetname [ ] ; 

FILE  *lib; 

int  f index, skip; 

int  incnt,outcnt,  i  intable: 

char  instk[maxoutsl [81 ,  ostkfmaxouts] [8]  ; 

struct  functable  f table [maxprim] ; 

lib=fopen("d:struc" , "r") ; 

getid(lib,33); 

f ind_token( ) ; 


while  (1) 
f 

if  (toknn==0) 


getid(lib,41) ;  /* 

if  (strcmp(fnam,token_buf)==0) 


/*  find  a  MODULE?  */ 

/*  yes,  is  it  the  right  one?  */ 


while  (toknn!=4) 

getid(lib,41) ; 
find_token(); 

break; 

} 


/*  yes,  read  down  to  circuit  body  */ 


getid(lib,44) ; 
find_token() ; 


findex=0; 
skip=0  ,* 
while(l) 

{ 

ckt  line ( &outcnt , lib , os tk , &incnt , ins tk , &skip ) ; 
if  (skip==l) 


break; 

s  t  r cpy ( f table [ f index 1 . f nname , savf unc ) ; 

strcpy(token_buf,sav?unc); 

findprim{); 

ftable [f index] . level=features[primid] [1] ; 
findex++; 

fclose(lib) ; 

for^(i=0;  Kfindex;  i++) 

checktable(i.  &intable,  ftable);  /*  this  one  in  expand  table?  */ 
if  | (ftable [1] .level  >  features [targetpid] [1] )  &&  (intable==0) > 

strcpy(expt[expcount] .fname, ftable [i] .fnname) ;  /*add  it  to  table*/ 
expcount++; 

check_deeper{ ftable [i]  .fnname,  targetpid,  targe tname)  ,- 
else 

if  ( (ftable [il .level==features [targetpid] [1] )  && 

( strcmp ( ftable [ i] . fnname , targetname)==0) ) 


sfound=l ; 

} 


/*  function  name  what  we're  looking  for?  */ 
/*  yes,  found  at  least  one  occurrance  */ 


■END  CHECK_DEEPER- 


*  CHECKTABLE  subroutine  * 

*  A 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  j 

checktable ( index , result , table ) 
int  index, *result; 
struct  functable  table []; 

int  i: 

*result=0;  /*  initialize  to  "not  found"  */ 

for^(i=0;  i<expcount;  i++) 

if  (strcmp(expt[i] .fname, table [index] .fnname)==0) 

^result=l ; 
break; 

,  } 


-END  CHECKTABLE - 


J AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

*  PERFORM_EKPANSION  subroutine  * 

*  A 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  j 

^erform_expansion( ) 

extern  int  occurance; 
int  i.k,edone,end; 

for  (k  =0;  k  <  expcount;  k  =  k  +  1)  /*  each  expansion  request*/ 

{  /*  handled  one  at  a  time  */ 

rl  =  fopen("d:pll" , "r") ; 

wl  =  fopen("d:plexp" ,"w")  ;/*  declaration  part  of  expanded*/ 

/*  user  program  */ 

secondp(k)  ;  /*  second  pass  -  expansion  */ 

fclose(rl)  ;  /*  expanded  desc.  is  in  SCR2  */ 

/*  expanded  declaration  inPlEXP*/ 

/ * - copy  P1EXP  to  temp - */ 

tl  =  fopen("d:temp"  ^w")  ; 


;v? 

& 


1 


a 


$•1 

Sr 


SS 


rl  =  fopen("d:plexp" , "r")  ; 

|copy(rl , tl)  ; 
fclose(rl)  ; 

/* - - — copy  internals  of  function  to  tl  with  tacking - */ 

si  =  fopen("d:scrl" , "r")  ;  /*  function's  description  */ 

while  (1)  /*  read  internals  and  copy  to  dstemp  with  tacking  */ 

aetid(sl ,41) ;  /*  41  =  missing  {  error  */ 

rind_token()  ; 
if  (toknn  ==  4)  /*  {  */ 

break  ; 

if  j toknn  !=  8)  /*  INTERNAL  */ 

end  =  0  ; 

for^(i  =0;  i  <  occurance;  i  =  i  +  1) 


tack(i,  token_buf)  ; 
if  (delimiter  ==  2) 


r*  i  .  I 


end  =  1  ; 

if  ((i  +  1)  !=  occurance) 
delimiter  =  1  ; 


delimiter  =  1  ; 

pdelim(tl)  ; 
if  (end  ==  1) 
delimiter  =  2  ; 

.  ! 
else 

pdelim(tl)  ; 

}  /*  end  while  */ 

fprintf(tl,"  {  \n")  ; 

fclose(sl)  ; 

/* - append  SCR2  to  dstemp  and  copy  back  to  Pll — */ 

s2  =  fopen("d:scr2","r")  ; 
fcopy(s2,tl)  : 
fprintf(tl/>  j\n" )  ; 
fclose(s2)  ; 
fclose(tl)  ; 

.  .  »  *  ......  V 


tl  =  fopen("d:temp" ,"r")  ; 
wl  =  fojaen^'djplrV'w")  ; 


fclose(tl)  ; 
fclose(wl)  ; 

}  /*  end  for  */ 

if  (expcount  ==  0) 

printf("  »>  No  expansion  request  \n"); 
else  /*  tack  last  part  (simulation  control  specs)  to  Pll  */ 


rl=fopen("d:pll" , "r") ; 
tl  =  fopen("d:temp",''w")  ; 
fcopy(rl.tl); 
fclose(rl) ; 

rl  =  fopen(userprg,"r")  ;/*  user  program 

getid(rl,33); 

find_token( ) ; 

while  (toknn! =5) 


aetid(rl ,33) ; 
find_token( ) ; 


edone=0 ; 

lindflokinl); 
while  (1) 

{ 

switch (toknn) 

case  0:  edone=l, 
break; 


/*  get  next  token  after  )  */ 


/*  MODULE  */ 


case  6:  print  select=l; 


if  (toknn==7) 
fprintf (tl , " 
break; 

case  9s  print_select=0; 
pdelim(tl) ; 
getid(rl , j4) ; 
find  token ( ) ; 
if  7toknn==bj 

fprintf (tl," 
pdelim(tl) ; 
getid(rl,34) ; 
rind  token(); 
if  7toknn==7 ) 
fprintf (tl 


\n" )  ; 


\n" ) ; 


printf(tl,"  ;  \n"); 


break; 

case  20:  edone=l; 
break; 


21:  getid(rl,34) 
getid(rl ,34) 
find  tokenO 


/*  END  */ 

/*  EXPAND  */ 


break; 

default:  pdelim(tl); 

getid(rl , 34) ; 
find  token () ; 
break; 

}  /*  switch*^ 

if  (edone==l) 
break; 

}  /*  while  */ 

fclose(tl)  ; 

tl  =  f open ("d: temp" , "r")  ; 
wl  =  fopen("d:pll’‘,  "w")  ; 
fcopy(tT  Wl) 
fclose(tl)  ; 
fclose(wl)  ; 

} 


■END  PERFORM_EXPANSION- 


/kk'kkkkkkk'kkirkkkickkirkkkkirkkkkirk'kirk'kkk'kkkkkkkitk'k'kkkkkkk'kkkk'kkkkkkkk 
k  k 

*  ADD_LIB  subroutine  * 

*  * 
*****************************************************************  / 

add_lib() 

{ 

int  i. icnt,ocnt,done; 
int  skip,maxlevel; 
done=0 ; 

print_select*l 

rl*fopen("d:newckts .vhl" , "r") ; 

?etid(rl,33);  /*  find  out  which  addition  to  do  */ 

ind_token( ) ; 


±cnt*0 ; 
ocnt*0 ; 
maxlevel=0 
switch  (toknn) 


case  20:  done*l ;  /*  found  the  END  token  */ 

break ; 

case  26:  printf ("ADDCELL  not  installed  yet....\n"); 
break; 


27s  printf ("Performing  a  structure -only  addition  for.. 
r2=fopen("dstemp" ,"w"); 
r3=fopen("d:struc" ,"r") ; 
fcopy(r3.r2); 
fclose(r3) : 
getid(rl, 33) ; 

pdelim(r2);  /*  write  MODULE  token  */ 

getid(rl ,33) ;  /*  get  the  module  name  */ 

strcpy(primt[sys  Drimsl .nam2, token  buf) ; 
printf  (*js\n" ,  toJcenjiuf)  ; 
pdelim(r2) ; 

getid(rl ,33) ;  /*  get  INPUTS  keyword  */ 


?etid(rl,33) ;  /*  get  first  input  name  */ 

ind_token(); 

while  (toknn!=2)  /*  stop  when  find  OUTPUTS  */ 

icnt++;  /*  count  and  write  inputs  */ 

pdelim(r2) ; 
getid(rl,3i); 
find_token() ; 

primt[sys  Drims] .numpar=icnt; 

pdelim(r2Tj  /*  write  OUTPUTS  keyword  */ 

getid(rl,3i); 

find_token() ;  /*  get  first  output  */ 

while  (toknn!=3)  /*  stop  when  find  TYPES  */ 


ocnt++ ; 
pdelim(r2) ; 
getid(rl,33) ; 
rind_token( ) ; 


/*  count  and  write  outputs  */ 


primt[sys_prims] .outp=ocnt; 
features fsys_prims] [u]=l; 

pdelim(r2);  /*  write  the  TYPES  token 


pdelim(r2) : 
getid(rl,ii) ; 
find^token( ) ; 
if  jloknn==4^ 

count=0 ; 
fprintf (r2, 
J3delim(r2) ; 

else 


/*  get  the  next  token 


/*  this  will 


en  if  no  */ 


/*  TYPES  are  declared  */ 

\n");  /*  puts  TYPES:  :  into  file  */ 

/*  print  the  '{'  */ 


while  (toknn!=4) 

{ 

pdelim(r2) ; 
getid(rl,35); 
rind_token( ) ; 

pdelim(r2) ; 


skip=0; 
while  ( 


I*  write  all  the  TYPES  */ 


/*  then  write  the  ' { 1  */ 

/*  get  the  rest  of  the  circuit*/ 


while  (1)  /*  get  the  rest  of  the  circuit*/ 

ckt  line (&outcount,rl , outs tack, &incount, instack, &skip) ; 
if  (skip==I) 
break; 

for  (i*0;  i<outcount-I ;  i++)  /*  write  outputs*/ 

fprintf(r2."  ]s  , " ,outstack[i] ) ; 
fprintf(r2,"  ]s  =  ",outstack[ij)(- 

fprintf  (r2,  "| s("  ,savfunc) ;  /*vnte  the  function  name*/ 
for  (i=U;  i<incount-l ,-  i++)  /*  write  the  inputs*/ 


V  4  .  J  d  t  ,  *J  /  / 

fprintf(r2,"  Js  =  "  ,  outstackfi] )  .- 
fpr intf ( r2 . " 1 s( " , savfunc ) ;  /*write 
for  (i=u;  i< incount- 1;  i++)  /* 

fprintf(r2."  Is  , " , instackfil ) ; 
fprintf (r2,"  js  j  ;\n",instack(i]); 
strcpy(token_buf, savfunc) ; 
findpnmO;  /*see  wh 

if  (features [primidl f 1 1  >  maxlevel) 


dpnm();  /*see  what  func  name  is*/ 

(features [primid] [1]  >  maxlevel)  /*if  higher  level*/ 


1 


ttl 


a 

*»• 


sd 


CM 


& 


3 


I 

*,v 

‘S’ 


sa 


a 


maxlevel=featuresrprimidl [1] ; 

/*then  save  higher  level*/ 


fprintf (r2, 
fclose(r2) ; 


r2,"  }  \n" ) ; 


/*  write  the  closing  brace  */ 


v features [sys_prims] [l]=maxlevel+l,-/*this  prim  is  1  level*/ 
sys_prims++;  /*  higher  than  highest  subckt*  / 

rz=Topen("d:temp" , "r") ; 
if  (r2==NULL) 


if  (r2==NULL) 

?rintf("Temp  file  open  failed\nM); 
open( "dsstruc" ,  "w" ) ; 
if  (r3==NULL) 

printf (“Struc  file  open  failed\n"); 
fcopy(r2,r3) ;  /*  copy  new  file  back  to  */ 

fclose(r^) ;  /*  STRUC  */ 


fclose(r2};  /*  STROC 

fclose(r3) 

printf ("writing  PRIMITIV.DAT  file\n"); 
r4=fopen( "d  sprimitiv . dat" , "w" ) ; 
if  (r4==NULL) 


/*  STROC 


if  ( r4==NULL J 


printf ("Primitive  file  open  failed\n"); 
fprintf(r4<"]d  \n" ,  sys_prims) 
for  (i=0;  i<sys_prims;  i++) 

[printf(r4,"  ]s  ]d  Id  ]d  ld\n", 

primtfil .nam2, prime [i] .numpar, 
primt[i] .oUtp,reatures[i] [0] ,fea 


numpar, 

i][0]. 


features [i] [1] ) ; 


fclose(r4) 
getid(rl ,33} ; 
find  token(); 
brealc; 


case  28 


3s  printf (" 
break; 

•  j _ -i.  / 


ADDBLOCK  not  installed  yet. . . .\n" ) ; 


}  /*switch  */ 
while  (done==0); 


print  select=0; 
}/;*ad3lib*/ 


-END  ADD_LIB- 


APPENDIX  C 

THE  TIMING-WHEEL  SIMULATOR  PROGRAM 


/***************************************************************** 
'  *  * 


* 
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****** 


Timing  Wheel  Program 
for  the 

Multilevel  Logic  Simulator 
Version  3.1  27  Feb  87 

Original  Version  by  Ausif  Mahmood  at  WSU  for  UNIX  VAX 
Microcomputer  versions  and  bug  fixes  by  Scott  Kelly  at  NPS 
Adapted  to  the  version  3.1  of  CADD  program  by  Julio  Cesar 
Lopes  de  Albuquerque  at  NPS.  Use  with  CADD  version  3.1. 

********************** *************************************** j 


int  _mlen  =  250 


int  mem 
ttinclude 


in°,u 


lc\stdio.h" 


This  is  the  timing  wheel  program.  First  it  initializes  the  circuit 
inter-connections  in  terms  of  descriptors  (descriptor  interconnec¬ 
tions  are  given  in  a  file  "p2a").  The  circuit  is  then  simulated 
according  to  the  input  data  given  in  a  file.  Event  directed  Simula 
tion  is  used  for  maximum  time  efficiency  -Ulrich's  algorithm. 
Simulation  results  are  directed  to  a  file  .  */ 

ttdefine  inputs  2  /*  2  inputs  per  descriptor  allowed  */ 

#define  maxprim  100  /*  maximum  number  of  primitives  */ 

ttdefine  maxdescrpt  250  /*  maximum  number  of  descriptors  */ 

ttdefine  maxsymb  50  /*  symbol  table  for  printing  */ 

^define  mdelay  100  /*  maximum  possible  delay  */ 

Idefine  mdepth  250  /*  concurrent  actions  */ 

ttdefine  maxmat  400  /*  delay  matrix  units  */ 

^define  maxinput  100  /*  max  number  of  inputs  */ 

#define  maxtw  400  /*  timing  wheel  data  structure  */ 

#define  maxout  32  /*  maximum  number  of  outputs  per  prim*/ 


inputs  2 
maxprim  100 
maxdescrpt  250 
maxsymb  50 
mdelay  100 
mdeptn  250 
maxmat  400 
maxinput  100 
maxtw  400 
maxout  32 


struct  matrix  {  /*  delay  matrix 

int  rdelayO,  rdelayl ,  fdelayO ,  fdelayl  ; 
struct  matrix  *matptr  ; 


*  delay  matrix  for  a  primitive 


/* . 

struct  descrpt 
int  (*pfunc)( 

int  param[7] 


■RECORD  ORGANIZATION  FOR  A  DESCRIPTOR- 


struct  matrix  *mptr  ; 
struct  descrpt  *neader 


/*  pfunc  is  pointer  to  the  function  */ 
/*  i.e.  code  for  the  primitive  */ 
/*  parameters  for  the  function  */ 
/*  param[01  =  inputl  value  */ 
/*  param'l  =  input2  value  */ 
/*  param  2  =  risel  delay  */ 
/*  param'3  =  falll  delay  */ 
/*  param  '4  =  rise2  delay  */ 
/*  param  '5  =  fall2  delay  */ 
/*  param '6  =  MODE  (  0  =  normal  )  */ 
/*  =  uncertain  if  low  )  */ 
/*  (  2  =  uncertain  if  high)  */ 
/*  (  3  =  stuck-at-0  fault)  */ 
/*  (  4  =  stuck-at-1  fault)  */ 
/*  mptr  is  pointer  to  delay  matrix  */ 
/*  header  is  a  pointer  to  a  descriptor*/ 


struct  descrpt  *rightO  ; 
struct  descrpt  *rightl  ; 
int  h_value  ; 
int  r_value[ inputs]  ; 
int  present_output  ; 
struct  descrpt  *ext_ptr 

int  parent  ,* 

t\-'~ - - — - 


/*  2  right  pointers  per  descriptor  */ 
/*  block.  */ 
/*  field  indicator  for  header  pointer  */ 
/*  field  indicators  for  right  pointers*/ 
/*  present  output  of  a  primitive  */ 
;/*  extension  pointer  for  multi-  */ 
/*  descriptor  primitives.  */ 
/*  parent  descriptor  number  */ 


'* . TIMING 

struct  newstack  {  /* 

int  newvalue  ;  /* 

struct  newstack  *newptr; 

struct  time_stack  (  /* 

struct  descrpt  *aptr  ;  /* 

int  newval,  sflag  ;  /* 

struct  newstack  *nptr  ;  /* 
struct  time_stack  *tptr  ; 

fli . 


WHEEL  STRUCTURES . - . */ 

new_values  for  multi-output  */ 

functions  attached  to  timing  wheel  */ 


timing_wheel  structure  */ 
dptr  =  pointer  to  the  descriptor  */ 
newval=  newvalue,  sflag=  scheduling*/ 
flag,  nptr  =  pointer  to  newstack  */ 


FILE  *rp 
FILE  *wp 


struct  symb  tab  { 
char  nameX8] 
int  index 


;  /*  Read  pointer  to  input  data  file  */ 

;  /*  Write  pointer  to  output  data  file  */ 

SYMBOL  TABLE  RECORD  STRUCTURE - */ 


/*  name  of  the  line 

/*  index  =  #  of  the  associated  desc. 


•GLOBAL  PARAMETERS - 


struct  descrpt  desc [maxdescrpt] ;  /*  STORAGE  FOR  STRUCTURES  */ 
struct  time_stack  tstackTmaxtw]  ; 

struct  newstack  nstackfmdepth]  ;  /*  timing  wheel  structures  */ 

struct  matrix  matx[maxmat]  ; 

struct  symb_tab  sym[maxsymb]  ; 

struct  descrpt  *ptr,  *parent jptr  ; 

struct  newstack  *nwptr,  *fref,  *npptr.  *nwlpt  ; 

struct  time_stack  *endt[mdelay] ,  *begxnt[mdelay] ,  *freft  ; 

struct  time_stack  *savt,  *fwdt,  *tempt  ; 

int  num_outs  ;  /*  #  of  outputs  for  a  function  */ 

int  time,  sav_time,  sim_time  ; 

int  sav_write  ;  /*  write  flag  for  printing  output  names*/ 

int  f  out[maxout]  ;  /*  outputs  returned  by  each  function  */ 


int  f  out[maxoutl  ;  /*  outputs  returned  by  ea 

int  ft  out[maxoutl  ; 
int  del[maxout].  delay  ; 
int  timing^wheel,  depthlmdelay]  ; 

/*  depth []  indicates  the  number  of  concurrent  acti 
int  num  input,  inpt[maxinput]  ,  inptcfmaxinput]  ; 
int  hasHtaDle[100J ;  /*  simple  hashtable  for 

int  hashcount;  /*  number  of  items  in  ha 


of  concurrent  actions  in  I  slot  */ 


int  hashtable [ 100 j ;  /*  simple  hashtable  for  variabl 

int  hashcount;  /*  number  of  items  in  hashtable 

/*  num_input  =  number  of  inputs  in  the  input  data  file 
/*  inptN  =  array  holding  values  of  inputs 
/*  inptct]=  array  holding  hash  value  of  inputs 

int  numlprint  ,  out_interval  ; 
char  tokenbuff[8]  ; 
int  endinputname  ; 


variable  names*/ 
shtable  */ 


numjpnn 


number  of  lines  to  be  printed  out 

.  J  ^  j -  1  ^  i.  ~  _ j ...  • 


/*  out  interval=interval  after  which  each  output  is  to  be  printed*/ 

^  T-a. r _ _  j i  \  /  \  _ i  „  j _ ■ ^  j ^ _ a./ 


int  T*pnfn[maxprim] j ( ) 
int  pncnt  ; 
int  AND()  ; 
int  0R()  ; 
int  INVERT ()  ; 

#include  "c:\simd\ftype" 
int  fmode()  ; 


/*  pointer  to  primitive  functions 


/*  mode  behavior  simulation  */ 


int  fdel_ins()  ; 
int  insert ()  ; 
int  indata()  ; 
int  read_input()  : 
int  write  output() 
int  hashfX)  ; 
int  test( ) ; 
int  getnameO  ; 
int  fcopyO  ; 


/*  finds  delays  applicable  to  a  change*/ 
/*  insert  the  desc.  in  proper  slot  */ 
/*  input  data  retrieval  for  descs.  */ 


file  copying  routine 


/A****************************************:************************ 

*  * 

*  MAIN  PROGRAM  * 

*  * 

***************************************************************** i 

main(argc/argv) 
int  argc  ; 
char  *argv[]  ; 

int  i.  j,  k,  fx,  field_no,  duminp[32]  ; 
int  flag,  sav_value  ,  savh; 

int  sav_depth,  endread,  numl,  num2,  num3,  num4  ; 
int  filecount  ; 


FILE  *ti  ;  /* 

FILE  *tm  ;  /* 

FILE  *tc  ;  /* 

FILE  *td  ;  /* 

FILE  *tp  ;  /* 

struct  descrpt  *sav_ptr, 
struct  matrix  *ptrm  ; 
char  z  : 


/*  pointer  to  initialization  file 
/*  pointer  to  modif.  delay  file 
/*  pointer  to  descriptor  file 
/*  pointer  to  std.  delay  file 
/*  pointer  to  printout  file 
r  *prev_ptr  • 


hashcount=0 ; 
for  (i=0;  i<100;  i++) 
hashtable[i]  *  -1; 
rp  =  fopen(argv[l] ,“r") 
pnfn[0l  =  read  input  ; 
pnfn'l'  =  AND  ; 
pnfn  2  =  OR  ; 

pnfn[5]  =  INVERT  ; 
#mclude  "c  s\simd\faddr" 

wf  f  /  II  \  1 1  \  . 


is  the  input  data  file 


|  MULTI-SIM  version  1 


ov .  1 ,  1 


printf("  \n"); 

printfi"  Loading  Compiler  Data...\n 

printf("  \n"),* 

* . INITIALIZE  DELAY  MATRIX 

for  (i  =  0;  i  <  maxmat;  i  =  i  +  1) 

matx[il .rdelayO  =  -1  ; 
matx  'i'  .fdelayO  =  -1  ; 
matx  'i'  .rdelayl  =  -1  ; 
matx'i  .fdelayl  =  -1  ; 
matx[i] .matptr  =  NULL  ; 


. INITIALIZE  DESCRIPTORS- 

r  (i  =  0;  i  <  maxdescrpt  ;  i  =  i  +  1  ) 

for  (j  =  2;  j  <  6  ;  j=j+l) 

desc[i] .param[ j]  =  -1  ;  /*  initial: 

for  <j  =  0;  j  <  inputs 


descf i] .r_value[ jT  =  6  ; 
sscfij .paramfO]  =  z  ; 


/*  initialize  parameters  to  -1*/ 

j  =  j  +  1  ) 


descfil .oar am [6] 


r 

h  value 
t 


desc  1 1 


/*  normal  mode  of  operation  */ 


/*  2  stands  for  don't  care  */ 


* - Read  input  line  names 

endinputname  =  0  ; 
j  =  0  ; 
while (1) 

getnameO  ; 

mptc[jj  =  hashf(tokenbuff); 
j  =  j  +  1  ; 

if  (endinputname  ==  1) 
break  ; 

} 

num_mput  =  j  ; 


* . INITIALIZE  TIMING  WHEEL  &  STORAGE  POOL 

for  (  i  =  0;  i  <  mdelay  ;  i  =  i  +  1  ) 

depth[il  =  -1; 
begintfi]  =  NULL  ; 

^endt[ij  =  NULL  ; 

j  =  maxtw  -  1  ; 

for  (  i  =  0;  i  <  j  ;  i  =  i  +  1) 

tstackTi] .newval  =  2  ; 
tstack  i  .sflag  =  2  ; 
tstack  i  .tptr  =  &(tstack[i+l] )  ; 

^tstack[i] .nptr  =  NULL  ; 

freft  =  &(tstack[0] )  ; 


— -- — STORAGE  POOL  FOR  NSTACK( future  multi-output  values)- 
=  mdepth  -  1  ; 


r  (  i  8  0;  i  <  j;  i*  it  1) 
nstackTi] .newptr  =  &(nstack[i  + 
ef  =  &(nstackX0])  ;  /*  fref  pon 


points  to  the  first  free  nstack 


- INITIALIZE  CIRCUIT  CONNECTIONS 

filecount  =  0  ; 

wq  =  fopen("d:simdata" , "w" ) ; 

tm  =  fopen("d:modf". "r"); 

ti  =  fopen("d: initi ' 1 , "r" ) ; 

tc  =  fopen("d:descf" ,"r") ; 

td  =  fopen("d:delf"  ,  "r" )  ,• 

tp  =  fopen("d:prnt","r"); 

fcopy(tc,wq) ; 

fcopy( td,wq) ; 

fcopy(tm,wq)  ; 

fcopy(ti,wq)  ; 

fcgpy(tp,wq); 

fclose(wq)  ; 

fclose(tm)  ; 

fclose(ti)  ; 

fclose(tp)  ; 

fclose(tc)  ; 

fclose(td)  ; 

wq  *  fopenC'D.-simdata"  ,  "r")  ? 

endread=0 ; 

while (endread==0) 

{ 

fscanf (wq, "Id" ,&numl)  ; 


case  1  :  fscanf (wq, "Id  ]d  ]d",&num2,  &num3,  &num4)  ; 
switch  (nunu) 

case  8  :  desc fnum2] .header  =  &(desc [num4] ) ; 
break  ; 

case  9  :  if  (num4  ==  0) 

desc [num2] .righto  =  ptr  ; 
else 

desc[num2] .rightl  =  ptr  ; 
break  ; 

case  11  :descfnuni2]  .h_value  =  num4  ; 
break  ; 

case  12:  desclnum2] . r_value[num4]  =  savh  ; 
break  ; 

case  15:  desc [num2] .ext_ptr  =  &(desc [num4] )  ; 
break  ; 

case  16:  descfnum2] .parent  =  num4  ; 
break  ; 

default:  if  (num3  <  7) 

desc [num2] .param[num3]  =  num4  ; 
else 


printf("  error  in  decoding  code\n") 
endread  =  1  ; 
break  ; 


break  ; 

case  2  :  fscanf  (wq,  "]d"  ,5tnuir2)  : 

savh  =  desc[num2] .h_value  ; 
break  ; 

case  3  :  fscanf  (wq,  "]  d"  ,&nuin2)  ; 

Etr  =  desc [num2] .header  ; 
reak  ; 

case  4  :  fscanf  (wq,  "]d"  ,&num2)  ,- 
ptr  *  &(desc [num2] )  ; 
break  ; 

case  5  :  fscanf (wq, "] d  ]d".&num2,  &num3)  ; 
(*ptr) .param[num2j  =  num3  ; 
break  • 

case  6  :  fsccnf (wq, "]d" ,&num2)  ; 

§tr  =  desc [num2] .ext_ptr  ; 
reak  ; 

case  7  :  ptr  =  (*ptr) .ext_ptr  ; 
break  ; 

case  8  :  ptrm  =  (*ptr).mptr  ; 
break  ; 

case  9  :  ptrm  =  (*ptrm) .matptr  ; 
break  ; 

case  10:  fscanf  (wq,  "Id"  ,Stnum2)  ; 

( *ptrm) . rdelayO  =  num2  ; 
break  ; 

case  11:  fscanf  (wq,  "]d"  ,&num2)  ,• 

( *ptrm) . rdelayO  =  num2  ; 
break  ; 

case  12:  fscanf (wq, "]d" ,&num2)  ; 

( *ptrm) . rdelayl  =  num2  ; 
break  • 

case  13:  f scanf (wq , " j d" , &num2 )  ; 

( *ptrm) . fdelayl  =  num2  ; 
break  ; 

case  14:  f scanf (wq, "] d" , &num2)  ; 

('ptr).mptr  =  &(matx[num2] )  ; 
break  ; 

case  15:  fscanfiwq ."]d  ]d",&num2,  &num3)  : 

matxfnumz] .matptr  *  &(matx[numj] )  ; 
fcreax  ; 

case  16:  fscanf'wg  "]d  ld",&num2,  &num3)  ; 
matx[nun2] . rdelayO  =  num3  ; 


break  ; 

case  17s  fscanf (wq, "1 d  ]d"<&num2,  &num3)  ; 
matx[numzj . fdelayO  =  num3  ; 
break  ; 

case  18  s  fscanf  (wq. "]  d  1d",&num2,  &num3)  ; 
matxfnumzj . rdelayl  =  num3  ; 
break  ; 

case  19s  fscanf (wq. "Id  ]d",&num2,  &nuro3)  ; 
matxrnumZj . rdelayl  =  num3  ,* 
break  ; 


case  19s  fscanf (wc 


&nuro3 )  ; 


case  20s  depth[0]  =  depth[0]  +  1  ; 
break  ; 

case  21s  begint[0]  =  freft  ; 
break  ; 

case  22s  (*(endt[0] ) ) . tptr  =  freft  ; 

Break  ; 

case  23s  endtfOj  =  freft  ; 
break  ; 

case  24s  freft  =  (*freft) . tptr  ; 
break  ; 

case  25s  (*(endt[0j ) ) . tptr  =  NULL  ; 
break  ; 

case  26s  fscanf (wq. "Id" ,&num2)  ; 

(*(endt[0j )) .dptr  =  &(aesc [num2] )  ; 
break  ; 

case  27s  fscanf (wq. "] d" ,&num2)  ; 

(*(endt[oj ) ) .newval  =  num2  ; 
break  ; 

case  28:  fscanf (wq, "]d  ]d",&num2(  &num3)  ; 

/*  fscanf (wq,  "]c",&z)  ;  if 

z=getc(wq) ; 
z=getc(wq) ; 

/*  mess  up 

sym[num2] .name[num3]  =  z  ; 
break  ; 

case  29s  fscanf(wq,"]d  ]d",&num2,  &num3)  ; 
sym[num2j .index  =  num3  ; 
break  ; 

case  30  s  sav_wnte  =  0  ; 
break  ; 

case  31s  fscanf (wq, "]d" ,&num2)  ; 
num_print  =  num2  ; 
break  ; 

case  32s  out_interval  =  1  ; 
break  ; 

case  33:  fscanf(wq."]d  ]d",5tnum2,  &num3)  ; 
desc[num2j .pfunc  =  pnfn[num3]  ; 


■  (wq,  "]c",&z)  ; 


if  output  names  */ 


*  V  "M/  J  'x*  J  X*  /  MitVMIIil  M  VAttVUIIW  / 

desc[num2j .pfunc  =  pnfn[num3]  ; 
break  ; 


case  50:  endread  =  1  ; 
break  ; 

defaults  printf("  error  in  input  data  decoding\n")  ? 


f  /*  end  while  */ 
Lose(wq)  • 


wp  =  fopen(argv[2] ,"w")  ;  /*  is  the  output  data  file 

/*  connections 

printf("  Welcome  to  MultiSimPC  \n"); 

printf("  \n"); 

time  =  - 1  ; 

timing_wheel  =  -1  ; 

sav_time  =  0  ; 

pnntfC  Please  enter  Simulation  times  ")  ; 
tcanf ("Id" ,&sim_time)  ; 
printt;1^'  \n")  ; 

* . INITIALIZE  INPUT  DESCS.  IN  TIMING  WHEEL— 

for  (  i=0;  i<  num_input;  i  =  i  +  1  ) 


ptr  •  &(desc(i])  ;  /*  beginning  descs.  =  input  descs.*/ 

*  1 *ptr) .pfunc ))(i)  ;  /*  call  to  read_input  */ 


* . BEGIN  TIMING  WHEEL . */ 

while  (  time  <=  sim_time  ) 

{  /*  begin  while  time  <  sim  time  */ 

if  (timing  wheel  >=  mdelay) 

timing_wheel  =  0  ;  /*  Timing  wheel  is  circular  */ 

while  (  timing_wheel  <  mdelay  ) 

{  /*  begin  1  loop  of  timing_wheel  */ 

time  =  time  +  1  ,• 
if  (time  >  sim_time) 
break 

sav  depth  =  depth( timing_wheel]  ,* 

savt  =  begintftimmg_wheell  ;  /*  ptr  to  first  element*/ 

while  (  depth [timing_wheel]  !=  -1) 

{  /*  while  all  row  slots  have  been  updated  */ 

/* . BEGIN  UPDATE . */ 

/*  All  descriptors  connected  to  the  current  descriptor  are*/ 
/*  updated  with  the  'future  value1  from  the  timing  wheel  */ 
/*  if  the  present  value  differs  from  the  'future  value'  */ 
fwdt  =  begmt[timing_wheel]  ; 
ptr  =  (*fwdt).dptr 

begint[timing_wheel]  =  (*(begint[timing_wheel] ) ) . tptr  ; 

/*  begmt  points  to  the  next  element  in  the  current  row  */ 

/* . SCHEDULE  INPUT  READING . */ 

if  (((*fwdt).sflag)  ==  1) 

{  /*  if  scheduling  flag  is  1,  schedule  the  descriptor  */ 

j*^*^tr)^func)|((*ptr)  .parent)  ? 

/*  de-assert  scheduling  flag  */ 


depth[timing  wheel!  =  depth [timing_wheel]  -  1  ; 

flag  =  0  ;  /*  flag  =  1  indicates  a  multi-output  desc.  */ 

sav_value  =  (*fwdt) .newval  ; 

/*  sav_value  =  future  value  from  tim.  wheel  */ 
/*  i.e.  value  to  be  replaced  for  present  output  */ 

while  (1) 

{  /*  begin  while  C-list  for  each  output  is  updated  */ 


savjtr  =  ptr 
(sav_val 


ue  !=  -1) 


if  ( ((*ptr) .present_output)  1=  sav_value) 

{  /*  change  has  occured  */ 

ptr  =  (*ptr) .header  ; 
if  (ptr  ! —  sav_ptr) 

{  /*  if  not  end  of  circular  list,  then  begin 

(*ptr) .param[ (*savDtr) .h  value]  *  sav^value  ; 

/*  input  no.  pointed  to  by  the  desc.  Is  updated 

Pr«Y-P^  =  Ptr  l  .  _ 


switch  ( (*sav_ptr) .h_value) 


case  0  i  ptr  =  (*ptr) . righto  ; 

field_no  =  (*prev_ptr) . r_value [0] 
break  ; 

case  1  s  ptr  =  (*ptr) . rightl  ; 

rield_no  =  (*prev_ptr) .r_value[l] 

w^ile  (1) 

{  /*  while  begin  */ 
if  (ptr  ==  sav^ptr) 

/*  if  end  of  circular  list,  then  get  out  * 
break  ; 

(*ptr) .param[field_no]  =  sav_value  ; 

/*  update  input  with  future  value'  */ 
prev_ptr  =  ptr  ; 
switch  (field_no) 


case  1 


(ptr  ==  savjptr) 

if  end  of  circular  list,  then  get  out  */ 


cast  0 


ftr  ■  (*ptr ) .  righto 
x  *  (*prev _ptr ) . r_value  | 


break 


1  :  ptr  *  (  *ptr ) .  nghtl  ; 

lx  *  ( *prev_ptr ) . r_valut [ 1 ] 


field  no  *  fx  ; 

/*  end  while  */ 

1  /*  end  then  (if  not  end  of  C-lut)  */ 

}  /*  end  if  change  has  occured  */ 

*  if  sav_value  '*  -1  */ 

if  ( flag  **  1 ) 

i 

if  ! ( *nwptr ) . newptr  33  NULL) 

break  ;  /*  if  nstack  has  no  more  extension  */ 

nwptr  *  ( *nwptr ). newptr  ■ 


if  ( (  )  .  nptr  ■■  NULL) 

break  ; 

nwptr  *  ( *fwdt ) .nptr 
flag  -  T  , 

/*  flag  is  asserted  for  a  multi-output  function  */ 


ptr  *  ( *sav_ptr ) . ext _ptr  ;  /*  if  multi-output  case  */ 

sav_value  *  ( *nwptr ) . newvalue  : 

}  /*  end  update  of  all  descs.  in  C-list  */ 

}  /*  end  of  update  of  one  row  of  T.W.  */ 

/* . END  UPDATE . */ 

depth [ timing_wheel’  ■  sav_depth  ; 
begint [ timing_wheel]  *  savt  ; 

:* . - . EXECUTION  PHASE . */ 

/*  Second  pass  -Schedule  the  descs.  in  C-list  &  insert  in  */ 
/*  proper  time  slot  if  output  of  current  desc.  has  changed  */ 
while  (  depths timina  wheel]  !»  -1) 

{  / *  begin  execution  of  one  row  of  timing  wheel  */ 

fwdt  *  begint [ timing_whee 11  ; 

begint ( timing_wheel ]  ■  ( *(begint [ timing^wheel] ) ) . tptr  ; 
ptr  3  (*fwdtTTdptr  ; 

depth[  timing  wheel]  *  depth(  timmg_wheel]  -  1  ; 
sav_value  3  7*fvdt ) . newval  ; 

/*  future  value  */ 

flag  *  0  /*  flag  *  1  indicates  multi-output  desc.  */ 

while  (1) 

{  /*  begin  while  not  end  of  C-list  for  all  outputs  */ 

savotr  3  ptr  ; 
if  (sav_value  !■  -1) 

if  ( ( ( *ptr ) .present_output )  !*  sav_value) 

{  /*  change  has  occured  */ 

( *ptr ) .present_output  *  sav  value  ; 

7*  update  present  output  */ 

ptr  *  (*ptr) .header  ; 
if  (ptr  1*  sav  Dtr) 

{  /*  if  not  end  of  C-list,  then  begin  */ 

/* - SCHEDULE  DESC.  . */ 

parent_ptr  *  &(desc[ (*ptr) .parent] )  ; 

(*(  ( *parent_ptr )  .pfunc ) )  (0  ,  dummp ,  f_out )  ; 


fmode()  ;  /*  mode  simulation  */ 

fdel_ins( (*sav_ptr ) .h_value) ; 

/*  find  delays  and  insert  in  proper  slot  */ 
prev_ptr  *  ptr  ; 
switch  ((*sav _ptr).h  value) 


case  0  :  ptr  *  (*ptr) . righto  ; 

field_no  =  (*prev_ptr ) . r_value [0] 
break  ; 

case  1  :  ptr  3  (*ptr ) . rightl  ; 


■  o'o  o'/yCv  .V .•'.■‘.N'.'-'.V.V.V:  v.V.'v 


field_no  =  (*prev_ptr) .r_value[l]  ; 


wliile  (1) 

{  /*  while  begin  */ 

if  (ptr  ==  sav_ptr)  /*  if  end  of  C-list,  quit  */ 
break 


/* — SCHEDULE  DESC.  -get  all  parameters  first  — */ 

■V 


( *( (*parent_ptr ) .pfunc ) ) (6 , duminp , f_out) 


fmode ( ) 


,  /*  simulate  mode  behavior  */ 

fdel_ins(field_no)  ; 

/*  find  delays  and  insert  in  proper  slot  */ 
prev _ptr  =  ptr  ; 
switch  (field_no) 


{ 


case  0 


?tr  =  (*ptr) .righto  ,* 
x  =  (*prev_ptr) .r_value[0]  ; 


break 


case 


J 


1  s  ptr  =  ?*ptr) . rightl  ; 

rx  =  (*prev_ptr) .r_value[l]  ; 


fieldno  =  fx 


1 


} 


!  r* 

$ 


if  (flag  ==  1) 


end  while 
end  then  (if  not  end  of  C-list) 
end  if  change  has  occured 
end  if  sav_value  !=  -1 


{ 


/*  multi  output  case 


*/ 

*/ 

*/ 

*/ 

*/ 


if  ( (*nwptr) .newptr  ==  NULL) 


*  fref  storage  for  nstack  */ 
(*nwptr) .newptr  *  fref 


fre 
break 


,1 


nwptr  . 

/*  If  all  outputs  have  been  handled,  quit  */ 


.1 


/*  free  storage  for  the  previous  nstack  */ 

npptr  =  nwptr  ; 

nwptr  =  (*nwptr) .newptr  ; 

£*npptr) .newptr  =  fref 


;ref  =  npptr 


{ 


se 


/*  if  flag  is  0  */ 


} 


if  ( (*fwdt) .nptr  ==  NULL) 
break  ; 

nwptr  =  (*fwdt).nptr  ; 

flag  =  1  ;  /*  multi-output  case 


*/ 


*/ 


ptr  *  (*sav_ptr) .ext_ptr  ; 
sav  value  =  (*nwptr) .newvalue  ; 

]  7*  end  (C-list  scan  for  all  outputs)  */ 

/* - Free  storage  for  current  tstack - */ 

tempt  =  fre ft  ; 
fre ft  =  fwdt  ; 

^*freft) . tptr  =  tempt  ; 

}  /*  end  of  one  row  of  timing  wheel  */ 

write_output( )  ;  /*  print  results  */ 

begintT timing  wheel]  =  NULL  ; 
endt[ timing  wheel]  =  NULL  ; 
timing_wheel  =  timing_wheel  +  1  ; 

/*  move  to  next  row  of  timing  wheel  */ 
}  /*  end  of  I  loop  (vertical)  of  timing  wheel  */ 

}  /*  end  time  <  sim  time  */ 

fclose(rp)  ; 
fclose(w)  ; 

i<f  of  main 

*/ 


*  V* 

L.'. 


en 


program  */ 
---END  OF  MAIN 


j ************ * **************************************************** 

*  FMODE  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  It  finds  outputs  for  each  descriptor  according  to  its  mode  */ 
fmode() 

{.  . 

mt  l,  mode  ; 

struct  descrpt  *xtptr  ; 

xtptr  =  parent_ptr  ; 

for  (i  =  0;  i  <  num_outs  ;  i  =  i  +  1) 


mode  =  ( 
switch  ( 

case  0 


(*xtptr) 

^rnode) 


param[6]  ; 


case  1 


case  2 


f_out[i]  =  f  out[i]  ; 
break; 

if  (f_out fi]  ==  0) 
f_out[ij  =  2  ; 
break; 


(f_outf i] 
_out[i]  = 


break; 

C<-..ie  3  ;  f  out  [i]  =  0  ; 
break  ; 

case  4  t  f  outfil  =  1  ; 

} 

xtptr  =  (*xtptr) .ext_ptr  ; 


==  1) 
2  ; 


--END  FMODE - 


/***************************************************************** 

*  * 

*  FDEL.INS  SUBROUTINE  * 

*  * 

*  ****************************************************************  j 

/*  This  procedures  finds  the  delays  applicable  to  a  function  */ 

/*  connected  to  the  output  of  the  current  descriptor.  The  input  */ 
/*number  to  which  the  current  descriptor  is  connected  is  supplied*/ 

fdel^ins(inp) 

int  inp  ;  /*  inp  =  input  number  to  which  the  current  desc.*/ 

{  /*  connected  */ 

int  i,  j,  k  ; 
struct  matrix  *mtptr  ; 

/* . COMPUTE  DELAYS . */ 

if  (f_out[0]  ==  1) 

if  (inp  ==  0) 

del[0]  =  (*ptr) .param[2]  ;  /*  del-0  =  rise  del(0,0)  */ 

else 

del[0]  =  (*ptr) .param[4]  ;  /*  del-0  =  rise  del(l,0)  */ 

else  /*  if  first  output  is  1  */ 


Lse  /*  if  first  output  is  1  */ 
if  (inp  ==  0) 

del[0]  =  (*ptr).param[3]  ;  / 

else 

del[0]  =  (*ptr) .param[5]  ;  / 

^  ( (*ptr) .mptr  !=  NULL)  , 

mtptr  =  (*ptr).mptr  ; 

for  (i  =  1;  i  <  num_outs;  i  =  i  +  1) 

^if  (f_out[i]  ==  1) 


/*  del-0  =  fall  del(0,0)  */ 
/*  del-0  =  fall  del(l ,0)  */ 
/*  multi-output  case  */ 


del[i]  3  (*mtptr) . rdelayO  ,- 
else 

del[i]  3  (*mtptr ) . rdelayl  ,- 
ejse  /*  if  ith  output  is  0  */ 
if  (inp  **  0) 

del[i]  3  (*mtptr ) . fdelayO  ,- 
else 

del[i]  3  (*mtptr ) . fdelayl  ; 

il  ( (*mtptr ) .matptr  33  NULL) 
break  ; 
else 

mtptr  3  (*mtptr) .matptr  ; 


/*  del-i  3  rise  del(0,i)  */ 
/*  del-i  3  rise  del(l,i)  */ 

/*  del-i  =  rise  del(0,i)  */ 
/*  del-i  3  fall  del(l,i)  */ 


-END  COMPUTE  DELAYS- 


/*  For  a  multi-output  function,  different  delays  are  possible.  */ 
/*  Insert  in  proper  slot  for  each  different  delay  */ 

for  (i  3  0;  i  <  num_outs,-  i  3  i  +  1) 

{ 

if  (del[i]  1 3  -1)  /*  delay  3  -1  means  input  and  output  are  */ 

{  /*  not  related.  */ 

delay  3  delfi]  ; 
ff_out[i]  =  f_out[i]  ; 

/* - -Check  for  identical  delays - */ 

for  (j  3  i+1;  j  <  num_outs;  j  3  j  ♦  1) 


if  (delHl  33  delay)  /*  For  identical  delays  on  */ 

fr_out[j]  3  f_out[j]  ;  /*  different  outputs,  function  */ 

else  /*  should  be  inserted  only  once*/ 

ff_out[j]  3  -1  ;  /*  -1  output  means,  keep  the  */ 

}  /*  output  */ 

/* . - . */ 

/*-------Eliminate  the  delay  cases  which  have  been  covered  */ 

for  (k  =  0;  k  <  num_outS;  k  3  k  +  1) 

'“MW  ”  f'Uy) 

)* . 

insert()  ;  /*  insert  in  proper  slot  */ 


else 

ff_out[i]  =  -1  ; 


/*  insert  in  proper  slot  */ 
/*  if  delay  3  -1  */ 


-END  FDELINS- 


/**********  A *** * ****** * ********* *** ********  ***** ******  ****  *  ******* 

*  * 

*  INSERT  SUBROUTINE  * 

★  * 
A*********************** ************************** * **** ********** j 

/*  This  procedure  inserts  the  function  in  proper  slot  in  T.W.  */ 

insert( ) 

{ 

mt  i,j,k,  slot_no  ; 

slot  no  3  (delay  +  timing_wheel) ]mdelay  ,- 
deptn[slot  no]  3  depth [slot_no]  +  1  ; 
if  (endt[sTot_no]  !=  NULL) 

(*(endt[slot_no] ) ) . tptr  3  freft  ? 
else 

begint[slot_no]  3  freft  ,- 
/*  allocate  storage  for  tstack  */ 
endtfslotno]  3  freft  ; 
freft  3  (*freft) .  tptr  ,- 
(*(endt[slot_noJ ) )  .tptr  3  NULL 


(  *(endt[slot_no] ) ) .dptr  *  parentDtr  ; 
(*vendt[slot  nom.newval  ■  ff  out[0] 

'  ‘  J (  /*  multi-out  * 


if  (num_outs  > 


put  cases  */ 


i *(endt[slot_no] ) ) .nptr  *  fref  , 

/*  allocate  storage  tor  newstack  */ 

( *f ref ) . newalue  3  ff_out[l] 

nwlpt  3  fref  ■ 

fret  *  ( *f ref ) . newptr  r 

if  (num_outs  > 

k  3  0  ; 

j  -  2  ; 

while  (k  **  0) 

{ 

(*nwlpt) .newptr  *  fref  ; 
nwlpt  =  fret  • 

( *fref ) .newvaiue  ■  ff_out(j] 
fref  3  ( *f ref ) .newptr  ■ 

1  3  3  ♦  1  : 
if  ( j  33  num_outs > 
break  ; 


( *nwlpt ). newptr  3  NULL  ; 

dse  /*  if  single  output  function  */ 

(*(endt(slot_noj ) ) .nptr  3  NULL 

/*  put  new  value  in  the  slot  */ 


•END  INSERT- 


/***************************************************************** 

*  * 

*  READ  INPUT  SUBROUTINE  * 

★  * 

***************************************************************** j 

react  input  ( ddnum ) 
int  adnum  ; 


iclinput  (< 
t  adnum  ; 


int  i,  order,  k,  alotn,  pO,  p2  ; 

/*  determine  input  order  i.e.  which  input  is  to  be  read  */ 
pO  ~  desc [ddnum] .paramfOl  ; 


pu  =  aesciaanumi .parami u  ; 

?2  3  desc [ ddnum] .param[2]  ; 
or  (  i  3  0;  i  <  num^input  ;  i  3  i  + 
{  if  (  pO  33  inptcfl]  ) 


{  if  (  pO  33  inptc[I]  ) 

^  break  ; 

order  3  i  ; 

/*  input  order  found  so  quit  searching  */ 
if  (sav  time  I*  time  ) 

{ 

sav_time  3  time  ; 

for  (  i  3  0;  i  <  num_input  ;  i  »  i  +  1  ) 

fscanf (rp, "]d" ,&k) 
inpt(i]  3  k  ; 


f  out[0]  =  inpt[order]  ; 
slotn  3  (timing  wheel  +  p2)](mdelay)  ; 
depth(slotn)  3  Hepthfslotn]  +  1  ; 
it  (endtTslotn]  !=  NULL  ) 

(*(endt [slotn] )). tptr  3  freft  ; 
else 

beaint[slotn]  3  freft  ; 
f*  allocate  storage  for  tstack  */ 


endtf slotn] 
freft  =  (*f 


tnl  3  freft  ; 
(*£reft) . tptr  ; 


^*(endt(slotn] ) ) . tptr  *  NULL  ;  ^ 

/  * - - - - - */ 

(*(endtfslotnl ) ) .dptr  *  &(desc[order] ) 
{ *(endt  siotn  ) ) .newval  »  f  out[0]  • 
(*(endt  siotn  u.nptr  *  NULE  ; 
(*(endt(siotnj ) ) .sflag  *  1  • 


•END  READ  INPUT- 


★  * 

♦  WRITE  OUTPUT  SUBROUTINE  * 

*  “  * 

****** ******************6*6 **6***********************************/ 
write_output  (  ) 

/*  num_print  contains  the  number  of  lines  to  be  printed  */ 

,  *  out  interval  13  interval  after  which  value  is  to  be  printed  */ 
/*  symT] . index  contains  indices  of  descs.  representing  output  */ 

int  l  ■ 

if  (sav_wnte  3=  0) 
fprmtf(wn,"  time"); 

for  (i*0;  l  <  num_print  ;  i  *  i  ♦  1) 
fprintfrwp,"  ] 5s" , symf i] .name )  ; 
fprmtf  (wp ,  \n")  ; 
fflush(vp)  ; 

l 

sav_wnte  *  1  ; 

fprmtf(wp.  "  ]  3d  ".time)  ; 
for  (i*0;  l  <  num_pnnt  ;  l  »  l  ♦  1 ) 

fprmtfiwp."  ]  5d"  ,  desc  (( sym[  i]  .  index )]  .present_output)  ; 
fpnntf(wp,’'\n")  ; 
ftlushrwp)  ; 


■END  WRITE  OUTPUT- 


•include  "c:\simd\block" 

/  *************-**************************************************** 

*  ★ 

*  INVERT  SUBROUTINE  * 

*  * 

***************************************************************** ^ 
INVERKflg,  inpx  ou) 
int  fig  ,  *inpx,  *ou  ; 

if  (fig  **  0) 

indata (inpx.  1)  ; 
switch( (*inpx) ) 

case  0  (*ou)  =  1  ; 

break  ; 

case  1  :  (*ou)  =  0  ; 

break  ; 

^case  2  :  (*ou)  =  2  ; 

num_outs  =  1  ; 

} 

. END  INVERT . *' 


I  ***************************************************************** 

*  * 

*  AND  SUBROUTINE  * 

*  * 

***************************************************************** j 

AND(flg  ,  inpx,  ou) 


if  (fig  »=  0) 

indata (inpx,  2)  ; 
s  «  (*inpx)  +  (*(inpx  +1))  ; 
switch(s) 


case  0 
case  1 
case  2 


(*ou)  =  0 
break 
(*ou)  *  0 
break  ; 


if  ((*inpx)  ==  1) 
(*ou)  =  1  ; 

else 


(*ou)  =  0 

break; 

default  :  (*ou)  =  2 


num  outs  *  1 


•END  AND- 


/***************************************************************** 
*  * 

*  OR  SUBROUTINE  * 

★  * 


0R(flg  , inpx,  ou) 
int  fig  ,  *inpx,  ’ 


int  s  ; 
if  (fig  ==  0) 

indata (inpx,  2  )  ; 
s  =  (*inpx)  +  (* ( inpx+1 ) )  ; 
switch( s ) 


case  0 
case  1 
case  2 


case  3 
default 


(*ou)  *  0  /*  ou  is  pointer  to  f_out  */ 

break  ; 

(*OU)  =  1  ; 

break  ? 

if  ((*inpx)  «*  1) 

(*OU)  *  1  ; 

else 

(*ou)  =  2  ; 
break; 

•  (*OU)  *  1  ; 

break  ; 

:  (*ou)  =  2  ; 


numouts  =  1 


-END  OR- 


/  ***************************************************************** 

*  * 

*  INDATA  SUBROUTINE  * 

*  * 

****** ****************** *************** ************************** j 

/*  input  data  retrieval  for  a  function  */ 

indata ( inpx ( inns ) 
int  *inpx,  inns  ; 

/*  inpx  =  input  data  array,  inns  =  number  of  input  data  */ 

struct  descrpt  *tmptr  ; 
int  i  ; 

if  (inns  >=  1) 

{ 

(*inpx)  =  (*parent_ptr) .param[0]  ; 
inns  =  inns  -  1  ; 
if  (inns  !=  0) 

{ 

(*(inpx+l))  =  (*parent_ptr) .param[l]  ; 


tmptr  =  parent_ptr  ,- 
while  (inns  !=o) 

tmptr  =  (*tmptr) .ext_ptr  ; 

(*(inpx  +  i))  =  (*tmptr) .param[0]  ; 
inns  =  inns  -  1; 
i  =  i  +  1  ; 
if  (inns  !=  0) 

{ 

(*(inpx  +  i))  =  (*tmptr) .param[l]  ; 

l  =  i  +  1  ; 

inns  =  inns  -  1  ,- 

} 

}  /*  end  while  */ 


-END  INDATA- 


/  ******  *  ********  ************************************************** 

*  * 

*  HASHF  SUBROUTINE  * 

*  * 

*****************************************************************  j 

hashf(s)  /*  forms  hash  value  for  string  s  */ 
char  *s ; 

{ 

int  hashval  ; 

for  (hashval  =0;  *s  !=  ' \0 '  ;  ) 

hashval  +=  *s++  ;  /*  hash  ID  name  into  an  index  */ 

test(&hashval<) ;  /*  and  test  for  collisions  */ 

hashtable [hashcount] =hashval ; 
hashcount++; 


return  (hashval)  ; 


-END  HASHF- 


/***************************************************************** 

*  * 

*  TEST  SUBROUTINE  * 

*  * 

*****************************************************************  j 

test (value) 
int  *value; 

l  „  . 

int  ij 

for  (i=0;  i<hashcount;  i++) 

if  (hashtable [ i] == (*value ) )  /*  collision?  */ 

(*value)=(*value)+ll ;  /*  yes,  add  a  prime  number  */ 

test(value);  /*  and  test  this  one  */ 


test(value) ; 


■END  TEST- 


/***************************************************************** 

*  * 

*  GETNAME  SUBROUTINE  * 

*  * 

*****************************************************************  j 

cfetnarae()  /*  returns  the  name  in  tokenbuff  */ 

int  i,  c  ,  flag,  delimiter  ; 
i  =  0  ; 

delimiter  =  -1  : 


flag  =  0  ; 

while((  delimiter  <  1)  | |  (flag  ==  0)) 

c  =  fgetc(rp)  ; 
switch  (c) 

{ 

case  1  1  ;  delimiter  =  1  ; 
break  ; 

case  1 ,  ’  :  delimiter  =  1  ; 
break  ; 

case  '\n's  delimiter  =  1  ; 

endinputname  =  1  ; 
flag  =  1  ; 
break  ; 

default  :  flag  =  1  ; 

delimiter  =  0  ; 

} 

if  (delimiter  ==  0) 


{ 


} 


if  (i  <=  6) 

{ 

tokenbuff[i]  =  c  ; 
i  =  i  +  1  ; 

} 


tokenbuff(i]  =  ' \0 1  ; 

A . end  getname- 


7 


j ***************************************************************** 

*  * 

*  FCOPY  SUBROUTINE  * 

*  * 

*****************************************************************  j 

fcopv(rr,  ww) 

FILE  *rr,  *w  ; 

int  c  ; 

while  ((c  =  getc(rr))  1=  EOF) 
putc(c,ww)  ; 


}*■ 


7 


END  FCOPY 


APPENDIX  D 
THE  EDITOR  PROGRAM 


1 


★  * 


Edition  Program 
for  the 

Multilevel  Simulator 


VERSION  3.1.  14  Apr  1987. 

Original  version  developed  under  MSDOS  and  PCDOS  by 
Julio  Cesar  Lopes  de  Alibuquerque  at  Naval  Postgraduate 
School.  Use  with  CADD  version  3.1. 


int  _mlen  =  500  .- 
int  mem(5C0]  ; 
#include  "\lc\stdio.h1 


#define  maxkey  30 
#defme  maxsym  SCO 


#defme  maxpnm  100 
#define  maxcuts  22 
^define  maxnorm  5C 
#defme  maxk  14 


extern  int  IDSTRING( 
extern  int  rfdeii 
int  bdread( )  ; 
extern  int  cmode()  .- 
extern  int  matgem  ' 


extern  int 
extern  int 
extern  int 
extern  int 
extern  int 


int  parseid 
int  fmdid( 
int  ldouti  ) 


extern  int  idinp- 
mt  repl  ( )  • 
int  cp  sim( ) 
int  upIanO; 
int  mdfyfanp; 
int  new_sim()  ; 


int  new 


extern  int  prim()  ; 
extern  int  rind_key() 
int  fmddesc()  ; 


extern  int  updesctO 


extern  int  findprim() 
extern  int  update() 
extern  int  connect () 


int  dlt_del(); 
int  mdy_pri(): 
int  copy_sim(); 
extern  int  code_input() 


/*<stdio.h>  m  DOS  3.x  environment 


/*  maximum  number  of  keywords 
/*  svmbol  table  size 
/*  lOOO  size  in  UNIX 
/*  maximum  number  of  primitives 


maximum  of  32  outputs  pet  ptim. 


/*  normload  table  size 

/*  user  options  for  the  program 


/* . GLOBAL 

extern  int  strcpyi }  ; 
extern  int  pnmsetupt  )  ; 
extern  int  strcmp*,  ; 
extern  int  getid^  ) 
extern  int  fmd_token()  ; 


DECLARATIONS . * 

/*  copies  one  string  to  another 

/*  external  module  to  name  the  prims 

/*  string  comparison 

/*  get  next  identifier 

/*  returns  the  token  number 

/ *  (keyword  table  index 

/*  list  of  id  s  parsing 

/ M  rise/ fall  delay  handling 

/*  block  delay  reading  routine 

/*  code  generation  for  mode 

/*  delay  matrix  and  mode  cen. 

/ *  single  id  parsing 

/  *  finds  symbol  table  index 

/*  verify  the  output  of  the  gate 

/*  verify  the  inputs  of  the  gate 

/*  replace  any  gate  in  the  circuit 

/*  copy  a  file  until  a  desired  point 

/*  update  fanout 

/*  modify  fanout 

/*  copy  the  SIMDATA  from  a  known 

/*  point  until  the  end 

/*  verify  what  primitive  will  be  used 

/*  select  the  option  of  the  user 

/*  finds  symbol  table  index  for 

/*  the  given  function  name/tvpe 

/*  updates  the  descriptor  table 

/*  (name  and  symbol  table  index) 

/*  finds  primitive  library  index 
/*  update  symbol  table 
/*  code  gen.  and  fanld  update 
/*  (descriptor  interconnections) 

/*  manages  the  deletion  of  delays 
/*  modify  the  printout 
/*  copy  part  or  a  file 
/*  code  generation  for  INPUTS 


EJ 


> 

> 

b 


V 


I 


§ 


8 


/  * 

declaration 

extern  int  errmessage()  ■ 

1  ,  ★ 

error  message  printing 

extern  mt  outerror;'  : 

* 

output  error  message 

extern  mt  error,,'. 

* 

error  handling  routine 

extern  mt  fcopyi  > 

* 

file  copying  routine 

extern  int  fadvance; ) 

★ 

advances" to "next  line 

extern  mt  hashfv'1 

* 

converts  input  name  to  number 

extern  mt  test;  ■ 

•* 

tests  for  hash  collisions 

int  chgdel\' 

* 

used  to  change  the  delay  part 

mt  fndde  1 .  ' 

♦ 

used  tc  find’s  delay  m* tne  file 

mt  chgend.  '  , 

* 

change  the  print  part  of  a  file 

mt  ersprnt  , 

* 

erase  part  of  the  printout 

int  msgate  . 

♦ 

used  for  insert  a  gate 

mt  champ, 

used  to  change  an  input 

mt  delgate 

* 

used  tc  delefe  a  gate 

int  e r  s i np 

* 

used  tc  erase  a  input 

“ - 

- _  A 

rue 

t  s  vrr  t  ab 

C  Tift 

r  name  3 

*  *-i  f 

descnc 

f  uneno 

mt 

f  anld 

•  r«  t 

despos 

de Ipos 

mt 

mi_num 

pn_n', 

•  * 

pr  i_va  . 

ITRES . 

symbo.  table 

name  -  name  of  id 

descnc  =  descriptor  number 

funcno  -  primitive  lib  index 

far.ld  *  actual  circuit  load 

despos  =  descriptor  spaces  m  file 

delpos  *  delay  spaces  in  tne  file 

ir.i_num  *  initialization  order 

pri_num  *  printout  order 

pri  val  *  •  characters  m  variable 


strict  desc  tab 
char  fun '5 
i  n  t  dr.  urn 


table  containing  function 
names  .type  names'  and  their 
symbol  table  indexes 


struct  norm  tab 
char  nom  3' 
i  n  t  rum  1  d  • 


table  containing  function 
names  types  and  associated 
normload  declared  in  DEFINE 


struct  prim  tab 
char  nam  3 
char  namiiS; 
mt  numpar  outp  • 
lr.t  norm  Id,  fanout 


mt  technology,  over  Id 


Primitive  table  i 

fnmitive  table 
XTENDED  primitive  table 
numpar  =  no .  of  parameters 
for  the  function 
outp  =  f  of  outputs 


struct  err  stack 
char  nmiS]  ; 
mt  errno  ; 


stack  for  errors  m  one  line 


!*  nm  *  name  of  unexpected  id 


/’ 


errno  =  erro 


unexpect 
r  number 


* , 
*> 

*/ 


struct  mp_name 
char  mame [ 8]  ; 
int  mp_num- 
char  inpl[8‘ 
char  mp3[8 
char  inp5|8 
char  inp7[8 
char  inp9[8 
mt  ifin; 


/*  holds  all  the  inputs  for  each  gate 
"  the  van 


inp2 
inp4 
inp6 

mp3  wj. 
inplo[4| ; 


/*  mame  =  name  of  the  variable  "  */ 

*  inp_num  =  #  of  inputs  in  the  gate  */ 

mpl  to  inpIO  3  inputs  for  the  gate  */ 


/ 

/* 


/*  ifin  ~  termination  of  the  table 


V 


struct  tab_del  {  /*  holds  all  the  information  about  the  */ 

int  indx,  dsc_nb,  typ_num;  /*  gates  that  have  modified  delays  */ 
int  num_ipt,  num  opt,  val; 


} ; 


7 
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' . STORAGE  ALLOCATION- 

struct  sym_tab  symt[maxsym]  • 
struct  desc_tab  deset [maxsymj  • 
struct  norm  tab  ncrt rmaxnorm]  ; 


struct  prim_tab  pr  imt  i  maxpr  lm 
struct  err  stack  errt[5]  ; 


struct  err_stack  errt[5J  ; 
struct  ir.p_name  ir.ptab  [maxsym]  ; 
struct  tab_del  del_tab[i00] ; 


*primptr  ; 

/*  max  of  5  errors  per  line 


err_ptr  : 

matcount  r 
delimiter,  bb  ; 

rdmat 'maxouts ] [maxouts 


toknn,  err_count  • 
features [maxpr im] [2] 
desc_r.o  ,  svm_count, 
dptr.  desciS.^lim  ; 

normcount  : 
f  ilecount ; 
pr  mpf  lag ; 
end,  out,,  ar; 
pnm_couht,  pnmid  ; 
sysjnns  ; 


/*  error  table  pointer  (count) 
/*  for  one  line. 

/*  delay  matrix  count 
/*  delimiter  =  delimiter  type 
/*  bb  =  buff[80]  index  (line) 

|  ,  fdmat[maxouts'  [maxouts]  ; 

/*  rise  and  fall  delay  matrices 
/*  err_count  =  error  count 


symid  ;  /*  desc_no  =  desc.  count 

/*  descriptor  table  indices 
/*  dptr  =  descriptor  table  cnt 
/*  normtable  count 
/*  poutcount  used  for  debugging 
/*  controls  printing  of  source 


prim_cour.t,  pnmid  ;  /*  prim_count  =  #  of  primitives 

sys_pnms  /*  number  of  permanent  (system) 

/*  primitives 

saver im  ;  /*  save  the  primitive  to  be  used 

token_buf [81 ,  savbuf[8l ,  buff[80]  ;  /*  buff  =  1  line 
keyword[maxkey] [8]  ;  /*  keyword  table 

key [maxk] [8] :  /*  key  table 

hasntable] 100 j ;  7*  the  hash  table 

hashcount;  /*  number  of  items  in  hashtable 

out_sub,  old  Drim;  /*  holds  the  primitives  in  RE PL 


r  token_buf [81 ,  savbuf[8l ,  buff[80]  ; 
r  keyword[maxkey] [8]  ;  /*  keyword  ta 

r  key  [maxk]  [8]  /*  key  table 

hashtable t i 0 o J ;  /*  the  h 

hashcount;  /*  numbe 

out_sub,  old  Drim;  /*  holds 

dct^del,  old3el_sym  ; 
savid[maxouts]  ; 
old_desc,  new^prim,  numl.  num2; 
old  val,  old_ipt,  old_del,  desc_old; 
r.urr.I,  lout; 

index,  indexl ,  old_func; 
ord_ini,  ord_pn,  endf; 
val_sym,  dptl  ; 
syml,  valact  ; 
skp5 ,  no_new  • 
r  Z  ; 

inum,  ant_desc; 
target,  tempi,  pari; 
parml,  par2,  parm2; 
sav'parl,  savpar2,  num; 
savtoken; 

del_sym,  del_ipt,  del_dct;  /* 

new ,  numb_inp ,  skp ; 
del_val,  skpl,  skp2; 
savn [maxouts] ; 

tot  val  ,  old  Dtr  ,  old_sym; 
skpcl,  skpm,  skpi,  skpp  ; 
posit  ,skpc,  skp3,  skp4  ; 
val_prt  : 

r  savfunc[8],  userprg[8]; 


/*  used  in  the  delete  case 


FILE  *rl 
FILE  *tl 
FILE  *t2 
FILE  *t3 
FILE  *t4 
FILE  *t5 
FILE  *t6 
FILE  *ti 


/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 
/*  pointer 


to  input  data  file 
to  temp  file 
to  temp2  file 
to  temp3  file 
to  temp4  file 
to  temp5  file 
to  temp6  file 
to  initialization  file 
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UNCLASSIFIED 


F/G  12/5 


ML 


FILE  *tm 
FILE  *tc 
FILE  *td 
FILE  *tp 
FILE  *rp 
FILE  *sy 
FILE  *de 
FILE  *nm 
FILE  *ip 
FILE  *dp 
/* . 


/*  pointer  to  modif.  delay  file 
/*  pointer  to  descriptor  rile 
/*  pointer  to  std.  delay  file 
/*  pointer  to  printout  file 
/*  read  pointer  to  input  data  file 
/*  symt  table  stored  for  edition 
/*  desct  table  stored  for  edition 
/*  nort  table  stored  for  edition 
/*  input  table  stored  for  edition 
/*  delay  table  of  the  descriptors 


/*a**aaa***a*a***aaa****a*aaa*a**aa******aaa***aa***aa**aaaaaaaa*a 

*  MAIN  PROGRAM  * 

*  * 

A****************************************************************  J 

main(argc,  argv) 
int  argc  ; 
char  *argv[]; 

int  i  j,  k,  1,  m; 
strcpy(userprg,argv[l] ) ; 
prinpflag  =  0  ; 
err_ptr  =  -1; 
err_count  =  0; 


for  (i  =  0;  i  <  maxprim;  i 

primt [ i] .normld  =  1  ; 
primt  i  .fanout  =  20  ; 
primt  i  .technology  =  0 
^primt[ij .overld  =  5  ; 

primsetup(&primt[0] ) ; 
sys_prims=prim_count ; 


-PRIMITIVES  SUPPORTED- 


=  i  +  l) 


/*  initialize  primitives  */ 

/*  primcount  may  change,  but  */ 
/*  we  need  a  copy  of  its  */ 
/*  starting  value  */ 


/* . 

strcpy(keywordr4l , 
strcpy( keyword '51 
strcpy(keyword  10 
strcpyt keyword  11 
strcpy( keyword  12' 
strcpy( keyword  13' 
strcpyikeyword  14 
strcpy( keyword  15 
strcpyf keyword  16 
strcpyt keyword  17 
strcpy( keyword  18 
strcpyikeyword  19 
strcpy(keyword  '20 
s  trcpy ( keyword [29 


-—KEYWORDS 
"!  : 

RISEDEL")  ; 
FALLDEL"  ; 
TECHNOL")  ; 
TTL")  ; 
NMOS'1)  ; 
CMOS")  ; 
ECL")  ; 
FANOUT")  ; 
N0RML0A" )  ; 
OVERLOA")  ; 
END")  ; 

#") ; 


/*  end  of  part  of  edition*/ 
- */ 


/* . 

s trcpy I 
strcpyi 
s trcpy! 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 
strcpyi 


key[0]  /'REPLACE") ; 
key  1  /’INSERT"); 
key  2  /'DELETE") ; 
key  '3'  /'ALTDEL"); 
key '4  , "ADDPRI" )  ; 
key  '5'  ,"DELPRI">; 
key  '6  , "ALTINI" ) ; 
key  7  /'INSOUT"); 
key  '8  /'DELOUT"): 
key  '9  ."ALTGATEM; 
key [ 10 J  /'INSINP") ; 


/*modify  circuit  already  compiled*/ 
/*insert  new  gates  in  the  circuit*/ 
/*delete  gates  in  the  circuit*/ 
/*change  delays  in  the  circuit*/ 
/*add  a  printout  in  the  circuit*/ 
/*delete  a  printout  of  the  circuit*/ 
/*change  initials  of  the  circuit*/ 
/*insert  output  in  the  circuit*/ 
/*delete  output  of  the  circuit*/ 
/*change  delays  of  a  gate  type*/ 
/*insert  inputs  in  the  circuit*/ 


strcpy(key 

strcpy(key 

strcpy(key 


11 

12 

13 


,  "INSINPG") ; 
,  "DELINP") : 

,  "DELINPG") ; 


/*insert  input  and  gate  5 
/*delete  inputs  of  the  circuit*/ 
/*delete  input  and  gate  */ 


/*  the  system  will  copy  all  tables  that  will  be  used  to  allow  the 
/*  edition  of  the  circuit. 


*/ 

*/ 


sy  =  fopen("d:symtable">"r") ; 
fscanf (sy,"  Id"  .&sym_count) ; 
fscanf (sy"]d  ]d\n" ,&ord_ini,&ord_pri) ; 
for  (i  =  0;  i  <  sym_count;  i++) 


fscanf (sy, " 
fscanf  (sy, 11 
fscanf (sy, " 
fscanf (sy," 
fscanf (sy, " 


descno)  ; 


d", symtfil  .name,&symt[il  .des , 
d",&symt[il .funcno,&symtfi] .fanld) : 
d",&symt  il .despos,&symt[i] .delpos) ; 
d" ,  Scsymt  i ] .  ini_num ,  &symt  [ i] .pr i  num)  ; 


fciose(sy) ; 

<to  =  fopen("d:deltable","r"); 
fscanf (dp,"] d" ,&indexl) ; 
for  (i  *  0;  i  <  indexl;  i++) 

. .  ld",Sdel_tab[i 

d"  ,&del_tad3[i 
d\n" ,&del_tab 


A 


d 

(dp,"  . 

d 

(dp, " 

d  ' 

.  indx ,  &de  1  tab  [  i  1 .  dsc_nb ) 

• typ_num , &ae l_tab [ i 1 . num_ip t ) ; 
i] .num_opt,&del_tab[i] .val) ; 


fclose(<to) ; 

de  =  fopen("d:descptab","r"); 
fscanf (de,"ld\n" ,&desc  no); 
fscanf (de,"]d\n" ,SdptrT; 
for  (i  =  0;  i  <  dptr;  i++) 

fscanf(de,"  ]s  Jd\n" ,desct[i] .fun,&desct[i] .dnum) ; 
f close (de); 

nm  =  fopen  ("dsnortable" , "r")  ; 
fscanf (nm{"  ]d\n" ,&normcount) ; 
for  (i=0;i<normcount;i++) 

^  fscanf (nm,"  ]s  ]d\n" ,nort[i] .nom,&nort[i] .nmld) ; 
fclose(nm) ; 

ip  =  fopen  ( "d :inp table", "r")  ; 
fscanf (ip,"  ]d\n" ,&inum) ; 
for  (i=0;x<inum;i++) 


{ 


fclose(ip) ; 


(ip. 

s 

d", inptab 

i 

Up* 

s 

s" , inptab 

i 

Up* 

s 

s", inptab 

i 

Up* 

s 

s" , inptab 

i 

Up  * 

s 

s" , inptab 

i' 

Up* 

s 

s" , inptab 

i' 

Up," 

d\n" ,&inptab 

i 

. iname ,  Sdnptab 
.inpl,xnptabrj 
. inp3 , inptab 
.inp5,inptab 
inp7 , inptab 


.inp9 . inptab 
.  ifin) ; 


i] . inp_num) ; 
• inp2 ) ; 

•  mp4) ; 

. inp6 ) ; 
.inp8)  ; 

. inplu) ; 


/*  The  system  will  fill  up  all  the  positions  in  the  input  table  with  */ 
/*  "xxx".  This  will  save  time  in  the  program,  during  tne  edition.  */ 

for  (i  =  inum;  i  <  maxsym;  i++) 

strcpy( inptab [il .inpl,"xxx")  ; 
strcpy( inptab  i  .inp2,"xxx")  ; 
strcpy(inptab  i  .inp3,"xxx")  ; 
strcpy( inptab  i  .inp4,"xxx")  ; 
strcpy(inptab  i'  .inp5,"xxx")  ; 
strcpy( inptab  i  .inp6,"xxx")  ; 
strcpy( inptab  i'  . inp7 , "xxx" )  ; 
strcpy( inptab  i  .inp8,"xxx")  ; 
strcpy(inptab[i] .inp9,"xxx")  ; 


} 


strcpy(inptab[i] . inplO , "xxx" ) 


syml  =  sym_count  -  1  ; 
dptl  =  dptr  -  1  ; 
if  (desct[dptl]  .dnum  <  syml) 

val_sym  =  aesct[dptl] .dnum  +  1 

else 

val_sym  =  sym  count  ; 
rp  =  fopen(argvtl]\"rM) ; 
new  =  0; 
numb  inp  =  0; 
filecount  =  6; 
end  =  0; 
i  =  indexl  -  1; 
index  =  del_tabfi] .indx  ; 
skpc  =  0  ; 
skpd  =  0  ; 

for  (i  =  0;  i  <  val_sym;  i++) 

skpc  =  skpc  +  symtfil .despos 
skpd  =  skpd  +  symt[ij .delpos 


/* 


verification  if  symtable  has  */ 
/*  any  input  that  will  not  be  */ 
/*  used  */ 


/*  count  how  many  positions*/ 

/*  are  occupied  m  the  */ 

/*  descriptor  file  and  in  the*/ 

'.j.  ’  ^t  -1- ' 


while  (end  !=  1) 


/*  default  delay  file  */ 

/*  verify  if  edition  was  requested  */ 


case  0:  end  =  0; 

parseid(4) ; 

printfC1 . beginning  REPLACE  case.\n"); 

repl(0); 

break; 

case  1:  printf(" . beginning  INSERT  case.\n"); 

insgate(O)  ; 
break; 

case  2:  printf(" . beginning  DELETE  case.\n"); 

delgate(O)  ; 
break; 

case  3:  printf(" . beginning  DELAY  case.\n"); 

end  =  0  ; 
parseid(4) ; 
while  (1) 

{ 

/*  read  the  internal*/ 

■'  ”1; 


:etid(rp,36] 
ind_token( , 


if  ( toknn  ==  5) 


{ 


end  =  1  ; 
break; 


if  (toknn  ==  29) 


} 


end  =  2  ; 
break; 


strcpy(savbuf ,token_buf) ; 

findia(); 

target  =  symt 
primid  -  symt.  . 
printf .making  ]s  case\n" 


:[symid] .descno  ; 
:[symidj .funcno  ; 


fnddel(0) ; 
chgdel() ; 


J  0  VMkIV  i 

symt [ symid j . name )  ; 


^reak; 

case  4:  printf(" . add  PRINTOUT  case.\nM); 

val_prt  =  0  ; 
i  =  ordjpri  -  1  ; 
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case  5 


while  (delimiter  !=  2) 

/*  copy  the  prnt  file 
filecount  =  o  ; 
tp  =  fopen("d:prnt","r"); 
to  =  fopen("d:temp6" ,"w") 


*/ 


to  =  ropenvattempo’1  ,"W"J ; 
for  (k  =  1;  k  <  ord_pri;  k++) 

for  (1=0;  1  <  val_sym;  1++) 

if  jsymt[l] .pri_num  ==  k) 

m  =  symt[l] .pri_val 
break  ; 

}  } 

mdy_pri(m,tp,t6)  ; 


} 

set 


BSJSiS 

findld' ' 


/*  read  the  new  printout  */ 


i; 


symt 

for 

{ 


making  ]s  case\n" 

symt [symidj .name)  : 
/*  insert  it  in  the  prnt  file  */ 
.pri_num  =  ord^jri 


j  =  0;  3  <S  7  ;  j  =  r+  1  ) 

if  (token_buf  [ j]  =  •  \o 1 ) 
break  ; 
else 

{ 


fprintf (t6, "  28  ]d  Id  ",i,  j) 
fprintf(t6,"]c  " ,tofcen_6uf [3] ’ 
val_prt  =  val  Drt  +  1  ; 
f  advance  (4,  t6;,* 


> 


symt[symid] .pri  val  =  val_prt  ; 
ord_pri  =  ordlpri  +  1  ; 
val_j?rt  =  0  ; 
fprintf ( t6 , 11  29  ]d  ]d  ",i. 

symt[symid] .descno) 

f advance ( 3, t6)  ; 
i  =  i  +  1  ; 
chgend(2,tp,t6)  ; 
fclose(tp)  ; 
fclose(to)  ; 

tp  =  fopen("d:prnt","w"); 
tb  =  fopen("d:temp6" , "r") ; 
fcopy(t6,tp)  ; 
fclose(tp)  ; 

J  fclose(to)  ; 

getid(rp,33); 
find  token ( ) ; 
if  (toknn  ==  5) 
end  =  1  ; 

else 

if  (toknn  ==  29) 
end  =  2  ; 

else 

error(36)  ; 

break; 

s  printf (" . delete  PRINTOUT  case.\n"); 

while  (delimiter  !=  2) 


{ 


filecount  =  0  ; 

tp  =  fopen("d:prnt","r"); 

to  =  fopen("d: temp6" , "w") ; 


case  6 


case  7 


/*  read  the  printout  to  delete  * 
[«tid(rp,  33j ; 

token <); 
findidO  ; 

printf ("..... .making  ]s  case\n", 

symt [ symid] . name ) 
target  =  symt [symid] .pri_num  ; 

/*  delete  the  printout  */ 
ersprntQ; 

symtfsymidl .pri_val  =  0  ; 
symt [ symid] .pri  num  =  0  ; 
fcloseltp)  ; 
fclose(tb)  ; 

tp  =  fopen("d:prnt" . "w") ; 
tb  =  fopen("dstemp6(‘,"r'') ; 


fopen(Md 
|copy(tb,tp) 
fclose(tp)  ; 
fclose(tb)  ; 


getid(rp,33] ; 

£md_token()  ; 
if  (toknn  ==  5) 
end  =  1  ; 

else 

if  (toknn  ==  29) 
end  =  2  ; 

else 

error(36)  ; 

q  ZTQ  SiC  * 

print^(" . beginning  INITIALIZATION  case.\nM); 

end  =  0  ; 
parseid(4) ; 
while  (1) 

{ 

?etid(rp,36) ; 
ind_token() ; 
if  (toknn  ==  5) 

end  =  1  ; 
break; 

if  | toknn  ==  29) 


} 


end  =  2 
break; 


} 


strcpy(savbuf ,  tokenbuf )  ; 
findia() ; 

target  =  symt [ symid] .descno  ; 
posit  =  symt [ symid] .ini_num  ; 

printf (" . making  ]s  case\n". 

symt  f  symid] . name ) 

getid(rp,33)  ; 
if  I delimiter  !=  2) 

error (21)  ; 
break  ; 

num  =  atoi(token_buf )  ; 
chginit()  ; 


break  ; 

printf (" . inserting  OUTPUT. \n"); 


f  r  . 

if  (toknn  ==  5) 
end  =  1  ; 

if  (toknn  ==  29) 


else 


end  *  2  ; 

else 

error (36)  ; 

break; 

case  8:  printr(" . deleting  OUTPUT. \n"); 


case  9 i 


if  (toknn  **  5) 
end  ■  1  ; 

else 

if  (toknn  **  29) 
end  *  2  ; 

else 

error (36)  ; 

break; 

printf(" . beginning  GATE  case.\n"); 

end  =  0  ; 


parseid(4)  ; 
while  (i) 

{ 

getid(rp,36b 
find  token(); 
if  | toknn  ==  5) 

end  =  1  ? 
break; 

if  | toknn  ==  29) 


strcpy(savb 
findpr  Imp¬ 


end  =  2  ; 
break; 

f (savbuf , token_buf ) ; 


while  (1) 

{  fnddel(l)  ; 

for  (i  =  0;  i  <  val_sym;  i++) 

if^(symt[i] .funcno  =  primid) 


printf(" . making  ]s  case\n"  , 

symt[i] .name)  ; 
target  =  symt[i] .descno  ; 


if  (del 


chgdelO ; 
imiter  ==  2) 


break  ; 


break 


case  10;  print£{ .inserting  INPUT. \nM); 


itf(". 
chginpp  ; 
end  =  0; 

Par?eid(4); 
repl(l)  ; 
break; 

case  11s  printf (" . inserting  INPUT  and  GATE.\n"); 

chginpp; 
delimiter  =  0  ; 
insgate(O) ; 
break; 

case  12:  printff" . deleting  INPUT. \n"); 

ersinpO; 
end  =  0; 

P*rseid(4); 

rep 1(1)  ; 
break; 

case  13:  printi(" . deleting  INPUT  and  GATE.\n"); 

ersinpO; 


} 


} 


delimiter  *  0 

delgate(O); 

break; 

default;  error (24)  ; 
break  ; 


/*  save  the  modified  tables 

printf(" . Saving  tables. \n"); 

sy  *  fopen  ("d:symtable" ,  "w")  ; 
fprintfTsy,"  1  d\n" ,  sym_count )  ; 
fprintfcsy,"  ]d  ]d\nn ,ord_ini,ord_pri) ; 
for  (i=0;i<sym_count;i++) 


{ 


} 


fprintf(sy," 
fprintf (sy," 
fprintf (sy," 
fprintf  (sy, 11 
fprintf (sy," 


d" , symt 
d" ,symt 


d",symt[i 


.name, symt [i 
.funcno,symt 


d" , symt fil .despos,symt 


d\n",symt[x] .pri_val) ; 


.descno) ; 
il.fanldj. 
i] .delpos);, 


.  ini_num,symt[i]  .prx_num)  ; 


fclose(sy) ; 

dp  =  fqpen("d:deltable","w"); 
fprintf\dp , " ] d\n" , indexl ) ; 
for  (i  =0;  i  <  indexl;  i++) 


} 


fprintf  (< 
fprintf  (< 
fprintf  (< 


fclose(dp) ; 

de  =  fopen  ("dsdescptab" ,"w") ; 
le,*  Id*  “ 


fprintf?  de , "  1  d\n" ,  desc  n 
fprintf(de,"  1d\n" ,dptr7; 
CH;i<dptr;i++) - 


d\n" ,desc  no) ; 

“  ",dptrT; 

++) 

]s  ]d\n",desct[i] .fun,desct[i] .dnum); 


,  _  fprintf (Se^' 
fclose(de) ; 
nm  =  fopen  ("dsnortable","w")  ; 
fprintf? nm,"  ]d\n",normcount); 
for ^ ( i=0 ; i<normcount ; i++ ) 

j  fprintf (nm,"  ]s  ]d\n" ,nort[i] ,nom,nort(i] .nmld) ; 
f close (nm) ; 

ip  *  fopen  ("d:inptable","w")  ; 
fprintf? ip,"  JdXn1' , intun)  ; 
for  (i=0;i<inum;i++) 


{ 


fprintf (ip," 
fprintf (ip," 
fprintf (ip, " 
fprintf (ip," 
fprintf (ip," 
fprintf  (ip, 11 


:L 


rpt 

fprintf (ip," 

fc lose (ip) ; 

if  (err_count  !=  0) 
error(26)  ; 
else 

error(38)  ; 


d" , inptab 
s",inptab 
s", inptab 
s" , inptab 
s" , inptab 
s" { inptab 


d\n", inptab [i] .if in) ; 


.  iname .  inptab  [  i] .  in] 
. inpl , inptab [ xl . inp 
.inp3,  inptab  J  — 

. inp5 , inptab 
. inp 7 , inptab 
inp9 , inptab 


num) ; 


.  inp41 
.  inp6 1 
.inp8h 
.inpIO) ; 


)* 


outerror() 


/*  Edition  discontinued  message  */ 
/*  no  errors  encountered  message 


V 


■END  OF  MAIN  PROGRAM- 


■*/ 


/a**************************************************************** 

'  *  * 

*  REPL  SUBROUTINE  * 

•k  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk'kkkkkkkkkkkkkkirk  j 
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/*  used  to  make  the  replacement  of  one  gate  by  another. 


*/ 


repl(code) 
int  code  ; 


int  i,  sub2; 
while  (end  ==  0) 

outpar  =  -1; 
idout() ; 
if  (end  !=  0) 
break; 

mdfyfan();  /*  update  fanload  */ 

out_sub  =  savid[0] ;  /*  save  the  value  of  desc  being  replaced  */ 

printf(" . Replacing  ]s\n",symt[out  sub]. name)  ; 

old_prim  =  symtfout  sub].funcno; 
old_desc  =  symt[out_sub] .descno; 
for  (i  =  0;  l  <  dptr;  i++) 

if  (out  sub  ==  desct[i] .dnum) 
break; 

/*  positions  in  the  ddf  file  occupied  by  the  desc  */ 
skp3  =  symtTout_sub] .delpos  ; 
ant_desc  =  i; 
skp  =  0; 
skp5  =  6  ; 

/*  how  many  spaces  are  occupied  in  the  dcf  and  ddf  */ 

/*  files  until  the  descriptor  of  the  gate  to  be  replaced  */ 
for  (i  =  0;  i  <  out  sub ;  i++) 


i 


file 


skp5 


skp  =  skp  +  symt[i1 .despos 
’  '  =  skp5  +  symt[i] .delpos 


Lecount  =  0  ; 

tc  *  fopen("d:descf","r"); 
t4  =  fopen("d;temp4",Mw") ; 

/*  modify  the  descriptor  in  DCF  file 
cp_sim(skp,tc,t4) ; 
skp4  =  skp  ; 

for  (i  =  0;  i  <  skp2  ;  i++) 

{  /*  delete  the  old  descriptor  */ 


*/ 


f scanf ( tc , " ] d" , &numl ) ; 


prim(iout,  ant_desc); 

new_prim  =  primid;  /*  save  the  new  primitive 

idinp(iout);  /*  write  the  new  descriptor 

skpl  =  skpc  -  skp2  -  skp4  ; 

cp_sim( skpl , tc , t4) ; 

skp  =  symt[out_sub] . despos  ; 

skpc  =  skpc  +  skp  -  skpl  ; 

if  | code  ==  0) 

filecount  =  0  ; 
td  =  fopen("d:delf " , "r") ; 
t5  *  fopen("d:temp51,/"w'1)  ; 
tm  *  fopen( "d:modf " 


*/ 

*/ 


"  /  "r"  )  ; 
2"  ,  "w'1 ) ; 


t2  =  fopen("d;temp2' 
sub2  =  ant^desc  +  1  , 

/*  modify  the  default  delays  in  DDF  file  */ 
cp_sim(skp5, td, t5) ; 
matgen(ant_desc , sub2)  ; 
for  (i  =  0;  i  <  skp3;  1-*-+) 

f scanf ( td , " ] d" , &numl ) ; 

skp4  =  skpd  -  skp5  -  skp3  ; 
cp_sim(skp4 . td, ts) ; 
skpl  *  symt[out  sub] .delpos  ; 
skpd  =  skpd  +  skpl  -  skpj  ; 

/*  delete  the  modified  de! 
if  (indexl  !=  0) 


delays  (if  have)  in  IMDATA  */ 


SkD  =  0  ; 

f  lecount  *  0  ; 
dl t_de 1 ( o ld_de  s c ) ; 

fclose(td) ; 
fclose( t5) ; 
fclosei tm) ; 
fclose(t2) ; 

/*  restore  the  used  files 
td  =  fopen("d:delfM ,nw") ; 
t5  =  fopen("d:temp5" , "r" }; 
tm  =  fopen("d:modf" , "w") ; 
t2  =  fopen("dstemp2‘',"r''); 
fcopWtltd}  ; 
fcopy(t2,tm)  ; 
fclose( td) ; 
fclose(t5); 
fclosef tm) ; 
fclose(t2) ; 

} 

fclose(tc); 
fclose(t4) ; 

tc  =  fopen("dsdescf","w") ; 
t4  =  fopen(Md:temp4","r"); 
fcopy(t4,tc)  ; 
fclose(tc) ; 
fclose(t4) ; 


■END  REPL- 


/****************************★************************************ 
*  * 


*  CP_SIM  SUBROUTINE  * 

*  * 

***********************************^***************************** i 

/*  copy  the  file  until  the  point  desired,  controlled  by  the  skip  */ 
/*  counter  */ 


cp_sim(co 
int  code? 


code,rx,ry) 


FILE  *rx,  *ry  ; 

{  ,  . 

int  is 

for^(i  =0;  i  <  code;  i++) 


fscanf (rx, "Id" ,&numl) ; 
fprintf (ry,"]d  ",numl); 
fadvance(l , ry) ; 


-END  CP_SIH- 


/***** a******************* ********** a***************************** 

*  * 

*  NEW.SIM  SUBROUTINE  * 

*  * 

A****************************************************************  j 

/*  copy  the  INITI  and  the  PRNT  files  */ 

new  sim() 
int  i: 

filecount  =  0  ; 

/*  copy  the  IPT  file  */ 

skp  =  9  *  (ord_ini  -  1)  ; 
for  (i  =  0;  i  <  skp ;  i++) 

fscanf ( ti , " ] d" , &numl ) ; 


} 


fprintf(t3,"ld  ",numl); 
fadvance ( 1 , t3 ) ; 


}* 


filecount  =  0  ; 
copy_sim(tp,t6) ; 


/*  copy  the  PTT  file 


*/ 


-END  NEW_SIM- 


7 


/  **********************************  I**************************;***** 

*  * 

*  COPY  SIM  SUBROUTINE  * 

*  * 
A****************************************************************  J 

/*  copy  the  PRNT  file  */ 

co£g_sim(rx,ry) 


*rx,  *ry  ; 


FI 

int  i,  j,  codel; 

/*  copy  the  PTT  file 
for  (i  =  1;  i  <  ord_pri;  i++) 


*/ 


i 


for^(j  =0;  j  <  val_sym;  j++) 

if  jsymt[j] .pri_num  ==  i) 

codel  =  symt[j] .pri_val  ; 
break  ; 

,  > 

mdy_pri(codel,rx,ry) ; 


)*. 


chqend(0,rx,ry) 
filecount  =  0  ; 


-END  C0PY_SIM- 


■*/ 


/***************************************************************** 

*  .  BDREAD  SUBROUTINE  * 

*  * 

A****************************************************************  j 

/*  This  routine  reads  the  block  delays  for  a  given  function  name  */ 

bdread(s) 
char  s[8]  ; 

{. 

int  i.  i,  numl,  x,  y,  w,  z,  il  ; 

FILE  *rl  ; 
char  p[8]  ; 

rl  =  fopen("d:bldel",Mr")  ;  /*  block  delay  file  */ 


/' 


initialize  delay  matrix  to  -1  - */ 


- initialize  delay 

for  (i  =  0;  i  <  maxouts;  i  =  i  +  1) 

for  (j  =  0;  j  <  maxouts;  j  =  j  +  1) 

rdmatfi] [ j]  =  -1  ; 
fdmat[i] [j  j  =  -1  ; 


} 


} 


/* - read  default  block  delays- 

fscanf(rl,"]s",p)  ; 

while  (strcmp(p,''END")  !=  0) 


{ 


fscanf (rl , "]d" ,&numl)  ; 

for  (il  =  1;  il  <=  numl;  il  =  il  +  1) 

fscanf (rl,"]d  ]d  ]d  ]d",&x,  &y,  &w,  &z)  ; 
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if  (strcmp(p,s)  ==  0) 
rdmat[xl[y]  =  w  ; 

fdnatlxjty]  =  *  s 

(strcmp(p,s)  ==  0) 
break  ; 

fscanf(rl,"]s",p)  ; 


fclose(rl)  ; 


-END  BDREAD- 


/***************************************************************** 

*  * 

*  UP FAN  SUBROUTINE  * 

*  * 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk j 

/*  update  the  fanload  of  the  gates  */ 

upfan(code) 
char  code [8]; 

int  i ,  j ,  k  j 

for  (i  =  0;  i  <  sym_count;  j++) 

if  (strcmp(code,symt[j] .name)  ==  0) 
break: 

k  =  symt[ j J .funcno  ; 

for  (i  =  0;  i  <  normcount;  i  =  i  +  1)  /*  find  name  in  nort  */ 

if  ( strcmp (nort [ i] .nom, code)  ==  0) 
break; 

if  (i  <  normcount)  /*  if  over  ride  is  used  for  norm  load  */ 
symt[j] .fanld  =  symt [ j ] . fanld  -  nortfij .nmld  ; 
else  /*  use  default  value  from  prim,  lib  */ 

symt[j] .fanld=symt[j] .fanld  -  primt[k] .normld; 


-END  UPFAN- 


y ***************************************************************** 

*  MDFYFAN  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  modify  the  fanload  of  the  gates  */ 

mdfyfan() 
int  if 

for  (i  =  0;  i  <  inum;  i++) 

if  (  strcmp(savbuf ,inptab[i] .iname)  ==  0) 
break; 
iout  =  i  ; 

/*  modify  the  fanload  of  the  gates  that  are  input  */ 

/*  of  the  gate  being  modified  */ 

upfan(inptab[iout] .inpl); 
if ^ (inptab[iout] .inp_num  >  1) 

upfan(inptab[iout] .inp2) ; 
if  (inptab[iout] .inp_num  >  2) 

upfan(inptab[iout] .inp3) ; 
if^(inptab[iout]  .mp_num  >  3) 

upfan(inptab[iout] . inp4) ; 
if  (inptab[iout] . inp_num  >  4) 

upfan(inptab[iout] . inp5) ; 
if ^ (inptab[iout] . inp_num  >  5) 


upfan(inptab[iout] .inp6); 
if  ^  (inptab [iout]  .mp_num  >  6) 

upfan( inptab [ lout] . inp7 ) ; 
if  ^(inptab[iout]  .mp_num  >  7) 

upfan( inptab [iout] .inp8); 
if  ^  (inptab [iout]  .mp_num  >  8) 

upfan(inptab[iout] .inp9); 
if ^ (inptab [iout] .inp_num  >  9) 

upfan ( inptab [ iout] .inplO) ; 

.  } 


-END  UPFAN- 


/***************************************************************** 

*  DLT.DEL  SUBROUTINE  * 

*  * 
*****************************************************************, 

/*  delete  the  modified  delays  (if  have)  from  the  MODF  file  */ 

dlt_del(code) 
int  code  ; 

Int  i,  j,  k,  1,  m  ; 
skp  =  0  ; 

/*  verify  if  the  gate  appears  in  the  DEL  table.  If  yes  */ 

/*  delete  the  code  for  the  modified  delay  from  the  MDF  file  */ 
for^(i  =  0;  l  <  indexl;  i++) 

if  |del_tab[i] . dsc_nb  ==  code) 

cp_sim(skp,tm,t2) ; 

for  (j  =  0;  j  <  del_tab[i] ,val;  j++) 
fscanf(tm,"  ]d",&numl); 
skp  =  0  ; 

.  ^ 

else 

skp  =  skp  +  del_tab[i] .val  ; 

1  =  0  ; 

1  =  0; 

while  (i  <  indexl) 
j  =  i  ; 


if  |del_tab[i] .dsc_nb  ==  code) 


while  (j  <  indexl) 

i ;  i : l  ! 

if  (del_tab[ j] .dsc  nb  !=  code) 

^  break; 

k  =  i  i 

/*  update  deltable 
for  (m  =  j ;  m  <  indexl;  m++) 

del_tab[k] .dsc_nb  =  del_tab[m] . dsc_nb  ; 


} 


del_tab 
del_tab 
del_tab 
del  tab 
k  =  k  + 


. typ_num=de l_tab 
. num_ip t=de l_t ab 
. num_op  t=de 1  tab 
.val  =  del_tab[ra 


typ_num 
num_ipt 
num  opt 
val  ; 


1  = 


J 

else 

{ 


inaexl  =  indexl  -  1 
1  =  0; 

1=1-1  ; 


1  =  0 


/ 


cplsim(skp,tm,t2) ; 


-END  DLT_DEL- 


•*/ 


/kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
'  k  * 

*  MDY_PRI  SUBROUTINE  * 

■k  k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk j 

/*  modify  the  PRNT  file  */ 


mdy_p 
int  code; 


FILE 

{ 


ri(code,rx,ry) 
ode ; 

*r 


'rx,  Kry 


)* 


int  m; 
char  z; 
m  =  0  ; 

while  (m  <  code) 

fscanf (rx,"ld  ]d  ]d",&numl,&num2,&num3); 
fprintf(ry, nJd  ]d  ]d  " ,numl,num2,num3) ; 
z  =  getc(rx)  ; 
z  =  getc(rx)  ; 
putc(z.ry) ; 
fprintf (ry , "  "); 
fadvance(4, ry) ; 
m  =  m  +  1  ; 

fscanf(rx,"ld  ]d  ]d",&numl.&num2,Stnum3); 
fprintf  (ry,  r,]d  ]d  ]d  " ,numl ,num2,num3) ; 
fadvance(3,ry) ; 


-END  MDY  PRI- 


•*/ 


j kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  FNDDEL  SUBROUTINE  * 

*  k 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk J 

/*  verify  what  delay  will  be  modified  */ 

fnddel(code) 
int  code  ; 


savtoken  =  toknn 
tempi  =  savtoken  . 
if  (delimiter  !=  6) 
error(29) ; 

getid(rp,33); 


/*  rise  or  fall  delay  ? 


*/ 


/*  what  input  ? 
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*/ 


pari  =  atoi(token_buf) ; 
parml  =  primtfprimid]  .n\ 


parml  =  primttprimidl .numpar  ; 
parm2  *  primt[primid] .outp  ; 
if  (pari  >  parml) 
error (39) ; 
if  (delimiter  !=  1) 
error(31) ; 

/*  what  output  ? 

getid(rp,33) ; 
par2  =  atoi(tokenjbuf) ; 
if  (par2  >  parm2) 
error(40) ; 

/*  read  the  delay  value 

if  ((code  ==  0)  &&  (delimiter  I®  2)) 
error(43); 

if  ((code  ==  1)  &&  (delimiter  Is  1)) 
it  (delimiter  !=  2) 
error(43)  ; 
savparl  =  pari; 
savpar2  =  par2; 

. END  FNDDEL . . 


/* . END  FNDDEL . */ 

/ ***************************************************************** 

*  CHGDEL  SUBROUTINE  * 

*  * 

/*  this  routine  changes  the  MODF  file  */ 

chgdelO 

int  i,  j,  k,  m; 

skp  =  0  ; 

filecount  =  0  ; 

tm  *  fopen("d:modf" ,"r") : 

t2  =  fopen("d:temp211  ,Mw''); 

if  (num  ==  0)  /*  return  to  the  default  values;  */ 

{  t*  delete  the  code  from  MDF  file  */ 

for  (i  =  0;  i  <  indexl;  i  ++) 

{  /*  and  update  DEL  table  */ 


if  (< 

'del_tab 

i 

del_tab 

i 

del_tab 

i 

! 

del_tab 

, 

i' 

cp  sim(skp, tm,t2) ; 
for  (j  =  o;  j  <  del  tabfi] .val; j++) 
rscanf (tm,"]d" ,5numl) ; 
skp  =  0; 
m  =  i; 
j  =  i  +  1  ; 

for  (k  =  j;  k  <  indexl;  k++) 

del  tab[ml .dsc_nb  =  del  tab[kl .dsc_nb  ; 
del“tab  m'  . typ_num  =  deT_tabrfcl ,typ_num 
del”tab  m  ,num_ipt  =  del_tab[k.  .num_ipt 
del” tab  m  .num_opt  =  del  tab [k  .num_opt 
del”tab[m] .val  =  del_tabjk] .val  ; 
m  =“m  +  1  ; 

i  s  i  •  ^  • 

indexl  =  indexl  -  1; 
index  =  index  -  1; 


skp  *  skp  +  del_tab[i] .val; 


cp  sim(skp,tm,t2) ; 
endf  =  1  ; 

/*  modify  delays  already  modified  */ 
for  (i  =  0;  i  <  indexl;  i++) 

if  ((del_tab[il .dsc_nb  ==  target)  && 

(del  tab'i  . typ  num  ==  tempi)  && 

(dell tab  i  .num_ipt  ==  savparl)  && 

(del  tabfij .num_opt  ==  savpar2)) 


cp_sim(skp,tm.t2); 

i=  del_tab[i] .val  -  1  : 
or  (k  =  0 ;  k  <  j ;  k  ++; 

^  fscanf(tm,"ld  ",&numl); 
fprintt(t2, "Id  " ,numl); 
fadvance(l,t2) ; 

fprintf(t2,"ld  ",num); 
fscanf (tm. "la  ",&numl); 
fadvance(l,t2) ; 
endf  =  1; 
skp  =  0; 

skp  =  skp  +  del_tab[i] .val  ; 


^  cp_slm(skp,tm,t2) ; 
skp  =  0  ; 

it  (endf  ==  0)  /*  inse 

if  | tempi  ==  10) 

rfdel(0,parl,par2,t2) ; 


/*  insert  new  delays 


rfdel(l,parl,par2,t2) ; 


fclose(t2 
fclose(tm 
endf  =  0 
t2  =  fope 
tm  =  fope 
fcopy(t2 , 
fclose(t2 
fclose(tm 


ose(t2) ; 
ose(tm) ; 
if  —  0  ; 

=  fopen("d:temp2" ,"r") ; 
=  fopen(Md:modt" , "wM ) ; 
py(t2,tm); 


(Sj  ! 


-END  CHGDEL- 


/***************************************************************** 

'  *  * 

*  CHGINIT  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  modify  the  initialization  of  the  internals  */ 

chginit( ) 

^  int  i  ; 
sto  *  0  ; 
filecount  =  0  ; 


ti  =  fopen("d:initi" , "r") ; 
t3  =  fopen{"d:temp3" , "w") ; 
if  jord_im  =  1)  /*  no  previous  initialization 

if^(num  !=  3)  /*  insert  new  initial  value 

fprintf (t3, "20  21  23  24  25  26  ")  ; 
fadvance(6,t3)  ; 

fprintf (t3, "Td  27  ]d  ",  target, num)  ; 
fadvance(2 . t3)  ; 


■tT  ^  fa  .  I 

ntfsymid^ , 


ini_num  =  1 


fcopy(ti,t3) 


if  (num  ==  3) 

if  jposit  !=  0) 


/*  delete  initialization 


skp  =  (posit  -  1)  *  9  ; 
skpl  =  (ord_ini  -  posit  -  1)  *  9  ; 
cp_sim(skp,ti,t3) 
for  (i  =  0;  x  <  9;  i++) 
fscanf(ti,"]d" ,&numl) ; 
if  (jaosit  ==  1) 

fprintf (t3, "20  21  "); 

fscanf (ti, "Id  ] d" , &numl , &num2 )  ; 

f advance ( 2, t3) ; 

for  (i  =  0;  i  <  7;  i++) 

^  fscanf (ti," Id" ,&numl)  ; 
fprintf (t3,"]d  ",numl); 
fadvance(l,t3)  ; 

skpl  =  skpl  -  9  ; 

cp_sxm(skpl,ti{t3) ; 
symtrsymid] . ini_num  =  0  ; 
for  (i  =  0;  i  <  val_sym;  i++) 
if (symtfi] .ini^num  >  posit) 

syrntfi] .inx_num  =  symt[i] ,ini_m 
ord_ini  =  ord_ini  -  1  ; 


fcopy(ti,t3)  ; 


if  (posit  !=  0) 


/*  if  is  not  the  first  descriptor  */ 

_  /*\  \  /  x  j  „  i  i _  *  x'/ 


/*  in  the  file 


skp  =  (posit  -  1)  *  9  ; 

skpl  =  (ord_ini  -  posit  -  1)  *  9 

cp_sim(skp,ti,t3) 

for  (l  =  0;  l  <  8;  i++) 

fscanf (ti"}d",&numl); 
fprintf (ti, rtTd  ",numl$; 
fadvance(l,t3)  ; 

fscanf  (ti,  "Id"  ,&numl) ; 
fprintf (t3,"]d  ",num); 
fadvance(l 


(ti, "Id" ,&numl 
f(t3,"]d  ",num 
ce(l,t3)  ; 
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cp_sim(skpl,ti,t3) ; 


skp  =  (ord_ini  -  1) 
cp_sim(skp,ti,t3)  ; 
fprintf(t3,"26  22  2 
fadvance(6 , t3)  ; 


h  24  25  26  "); 


iauvatiwwi  w  ,  ww  i  t 

fprintf(t3,"1d  27  ]d  ",target,num); 
fadvance(3 . t3) j 

symt(symid] .ini  num  =  orcLini  ; 
ord_ini  =  ord_ini  +  1  ; 


fclose(t3) ; 
fclose(ti) ; 
ti  =  fopenf 
t3  =  fopem 


fcopy(t3.ti); 
fclose(t3)  ; 
fclose(ti)  ; 


("dsiniti"  ; 
(Md:temp3" ."r") ; 


-END  CHGINIT- 


/***************************************************************** 

*  CHGEND  SUBROUTINE  * 

*  * 

*****************************************************************/ 
/*  this  routine  modifies  the  PRNT  file  */ 


chgend(code , rx, ry) 
int  code  ; 

FILE  *rx,  *ry  ; 

{  .  ..  .... 


fscanf(rx,"ld  ]d",&numl,&mati2); 
fprintf(ry,n]d  Id  ^numUnumE); 
fscanf(rx,"]d" ,&numl) ; 

if  (code  ==  1)  /*  delete  printout 


fscanf(rx,"]d" ,&num 
if  (code  ==  1) 

numl  =  numl  -  1 
if  (code  ==  2) 

numl  =  numl  +  1 


/*  insert  printout 


fprintf (ry,"ld  ",numl); 
fscanf (rx, "Id  ]dM,&numl,&num2); 
fprintf (ry,ft]d  ]d  " , numl , num2 ) ; 
fadvance(5,ry) ; 
fprintf(ry,"\n") ; 


•END  CHGEND - 


j ***************************************************************** 

*  ERSPRNT  SUBROUTINE  * 

*  * 
******** a******************************************************** / 

/*  this  routine  erases  a  printout  from  the  circuit  */ 

ersprnt() 

int  k,  1,  m,  n  ; 
if  (target  !=  0) 

for  (k  =  1;  k  <  ord_pri;  k++) 

for  (1  =  0;  1  <  val_sym,*  1++) 

if  (symt[l] .pri_num  ==  k) 

m  =  symt[l] .pri_val  ; 


break  ; 


if  |k  <  target) 

mdy_pri(m,tp.t6); 
if  (k  ==  target) 

n  =  0  ; 
while  (n  <  m) 

{ 

fscanf (tp,‘']d  ]d  ] d" , &numl , &num2 , &num3 )  ; 
2  =  getc(tp)  ; 
z  =  getc(tp)  ; 
n  =  n  +  l; 

fscanf(tp,"]d  ]d  ] d" , Stnuml , &num2 , £«num3 )  ; 

if  |k  >  target) 

n  =  0  ; 
while  (n  <  m) 


num2  =  num2  -  1  ; 


2  =  getc(tp)  ; 

2  =  getc(tp)  ; 

§UtC (2 , to ) ; 

printf(t6,"  "); 
fadvance(4,t6); 
n  =  n  +  1  ; 


fscanf { tp , " Id" , &numl) ; 
fprintf(t6,ATd  '',numl); 
fscanf  ( tp , 11  ]  a" ,  &num2 )  ; 
num2  =  num2 


,&num2) ; 


ivance(3 


/  n]d 
,t6); 


symt[l]  .pn_num  =  symt[l]  .pri_num  -  1  ; 


ordjpri  =  ord_pri  -  1  ; 

/*  copy  the  end  of  PRNT 
chgend(l,tp,t6)  ; 


fcopy(tp,t6)  ; 


-END  ERSPRNT- 


*  INSGATE  SUBROUTINE  * 

*  * 

***************************************************************** j 

/*  this  routine  insers  a  gate  in  the  circuit  */ 

insgate(code) 
int  code  ; 

int  1,  j  ; 

/*  save  the  original  values  of  tables  */ 


old_ptr  =  dptr; 
old_sym  =  sym_count; 
old_val  =  val_syrti; 
old_ipt  =  inum  ; 
old_del  =  indexl  ; 
desc_old  =  desc_no  ; 

/*  verify  if  has 
while  (delimiter  !=  z) 


more  than  one  insertion 


parseid(maxkey) ; 

/*  update  tables 
if  jval_sym  ==  sym_count) 

update ( -2, sym_count) ; 
desc_no  =  desc_no  +  1  ; 
sym_count  *  sym_count  +  1 
val~sym  =  $ym_count  ; 


for  (i  =  sym_count;  i  >  vai_sym;  i — ) 
j  =  i  -  1  ;  . 


symt 'i  .fanld  =  symthj.fanld  ; 
symt'i  .despos=symtf  ] .despos  ; 
symt  'i'  .delpos=symt[i \ .delpos  ; 
symt  i  .ini^num=symtn]  .im_num 
symt  il .pri_num=symt  3] ,pri_num 
symt[i] .pri^val=symt[5 ] .pri_val 


update(-2,val_sym) ; 
val  sym  =  val_sym  +  1  ; 
sym_count  =  sym_count  +  1  ; 

^  desc_.no  =  desc^no  +  1  ; 

new  *  new  +  1  ? 

} 

end  =  0; 
parseid(4) ; 

/*  make  the  insertion  in  the  tables  and  in  the  files 
while  (end  ==  0) 

{ 

while  (new  !=  0) 

{ 

filecount  =  0  ; 

tc  =  fopen("d:aescf" , "r") ; 

t4  =  fopen("dstemp4" ,"w") ; 


t4  =  fopen( "d: temp4" , "w" ; ; 
td  =  fopen  "d:delf","r"); 
t5  =  fopen("d:temp5","w'';; 


idout() ; 
if  jend  !=  0) 

error(0)  ; 
break; 

} 

strcpy(inptab[inum] .iname,  savbuf) ; 

printf(" . Inserting  ]s\n" ,savbuf)  ; 

cp_sim(skpc,tc,t4) ; 

/*  insert  new  descriptor  in  DESCF*/ 
prim(inum,  dptr); 
ldinp(inum) ; 

skpc  =  skpc  +  symt[valact] .despos  ; 

new  =  new  -  no  new  ; 

inptab(inum] .if in  =  1; 

inum  *  inum  +  1 ; 

filecount  =  0  ; 

cp_sim(skpd, td, t5) ; 


/*  insert  default  delays  of  new  desc*/ 
matgen(old_ptr ,dptr) ; 
skp2  =  symt[vaiactl .aelpos  ; 
skpd  =  skpd  +  skp2  ; 
f close (tc); 
fclose(t4) ; 
fclose(td) ; 
fclose(t5) ; 

old_sym  =  old_sym  +  no_new 
old_val  =  old_val  +  no_new 
old_ptr  =  old  Dtr  +  no_new  , 

!/~  restore  the  files  */ 

"dsdescf", "w") ; 

"d:temp4" , "r") ; 

"dsdelf" , "w") ; 

Md:temp5"  ,"r'') ; 

; 

fclose(tc 
fclosei t4 ; 
fcloseitd; 
fclose(t5 


if  (code  ==  0) 


.  ) 
else 

{ 

} 


if  jend  !=  0) 

error(l) 

break; 

repl(l); 


end 


-END  INSGATE- 


’*/ 


/* . 

/A**************************************************************** 

*  CHGINP  SUBROUTINE  * 

*  * 
***************************************************************** , 

/*  this  routine  inserts  an  input  in  the  circuit  */ 

chginpO 
int  i,  j  ; 

...  .  /*  verify  if  has  more  than  one  insertion 

while  (delimiter  !=  2) 

filecount  =  0  ; 
tc  =  fopen("dsaescf","r") ; 
t4  =  fopen("d:temp4","w") ; 
parseid(maxkey) ; 

printfC' . inserting  input  ]s\n", token  buf ) ; 

.  . ,  /*  update  tables 

for^(i  =  sym_count;  i  >  0;  i-- ) 

j  =  i  -  1 


*/ 


*/ 


strcpy 
symt 
symt 
symt 
symt 
symt 
symt 
symt 


symt[i] .name, symt [ j] .name) ; 
.aescno  =  symt  j] .aescno  ; 
.funcno  =  symtm.funcno  ; 
•fanld  =  symtm.fanld  ; 

•  despos=symtn  .despos  ; 
.delpos=symtn] .delpos 
.  ini_num=symtl  1 . ini  r 
.pri_num=symt [3] .pri~r 


_num 

num 
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symtfi] .pri_val=symt[j] .pri_val  ; 

l*  put  the  values  for  the  new  input  on  the  tables 
strcpWsymt[0]  .name,  tokenjbuf)  ; 
syratTO  .aescno  =  desc_no  ; 
symt  0  .funcno  =  0  ; 
symt  0  .fanld  =  0  ; 
symt  0  .despos  =11  ; 
symt  O'  .delpos  =  0  ; 
symt  0  .ini_num  =  0  ; 
symt  0  .pri  num  =  0  ; 
symt '0] .pri_val  =  0  ; 


for  (i  =  0;  i  <  dptr;  i++) 

desct[il .dnum  =  desct[i] .dnum  + 
/*  put  the  code  for  the  new  i 
code„.input(desc_no)  ; 
cp_sim(skpc,tc, t4)  ; 
skpc  =  skpc  +  11  ; 
val_sym  =  val_sym  +  1  ; 
sym_count  =  sym_count  +  1  ; 
desc_no  =  desc_no  +  l  • 
fclose(tc) ; 
fclose(t4) ; 

tc  =  fopen("d:descf","w") ; 
t4  =  fopen("dstemp4"<MrM); 
fcopy(t4,tc)  ; 
fclose(tc) ; 
fclose(t4) ; 


+  1  ; 

input  in  the  DCF  file 


-END  CHGINP- 


^***************************************************************** 

*  DELGATE  SUBROUTINE  * 

*  * 

*****************************************************************/ 
/*  this  routine  erases  a  gate  from  the  circuit  */ 

delgate(code) 
int  code  ; 

int  i,  j  ; 

/*  until  all  deletions  be  done  */ 

while  (delimiter  !=  2) 

( FP» ??) > 

find_token() ; 

/*  save  the  values  of  the  gates  */ 

/*  that  are  being  deleted  from  */ 

/*  the  tables  */ 

for  (i  =  0;  i  <  val_sym;  i++) 

if  (strcmp(symt[i] ,name,token_buf)  ==  0) 
break; 
del_sym  =  i; 

old^func  =  symt (del  sym] .funcno  ; 
strcpy(savbur , token_buf) ; 
for  (i  =  0;  i  <  inums  i++) 

if  (strcmp(inptabti] . iname , token_buf )  ==  0) 
break; 
del_ipt  =  i; 

for  (i  =  0;  i  <  dptr;  i++) 

if  (desct[i] .dnum  ==  del_sym) 
break; 
del_dct  =  i; 
mdfyfan() ; 

tc  =  fopen("d:descf", "r") ; 
t4  =  fopen("d;temp4" ."w") ; 
td  =  fopen("dsdelf" . "r") ; 
t5  =  fopen("dstemp5'' ,  "w" ) ; 


tp  =  fopen(l‘d:prnt","r"); 
tb  =  fopeni  "d:temp6"  ,"w‘‘) ; 


tm  =  fopen("d:modf","r"); 
t2,=  fopen("d:temp2","w‘l); 

printf(1' . Deleting  ]s\n",  symt[del_syml .name)  ; 

skp  =0; 
skp5  =  6  ; 

for  (i  =  0;  i  <  del_sym;  i++) 


skp  =  skp  +  symt[il .despos  ; 
skp5  =  skp5  +  symt(i] .delpos  ; 


/*  delete  the  descriptor  from  DESCF  */ 
filecount  =  0  ; 
cp_sim(skp,tc,t4) : 
tot_val  =  symt[dei_sym] .despos; 
del_val  =  symt[del_symj .delpos ; 
for  (i  =  0;  i  <  tot_val;  i++) 
f scanf ( tc , " J  d" , &numl )  ; 
skpl  =  skpc  -  tot  val  -  skp  ; 
skpc  =  skpc  -  tot  val  ; 
skp2  =  del  val  ;  “ 
cp_sim(skpl,tc,t4) ; 

/*  delete  the  default  delays  of  deleted  */ 
/*  gate  from  DELF  */ 

filecount  =  0  ; 
cp_sim(skp5,td,t5)  ; 
for  (i  =  D;  i  <  skp2;  i++) 
f  scanf  (td,  "]d"  ^uml)  ; 
skpl  =  skpd  -  skp2  -  skp5  ; 
skpd  =  skpd  -skpz  ; 
cp_sim(skpl,td,t5)  ; 

/*  delete  the  modified  delays  of  the  */ 
/*  desc.  (if  have)  from  MODF  and  */ 

/*  update  deltable  */ 

filecount  =  0  ; 
if  |indexl  !=  0) 

target  *  symt[del_sym] .descno  ; 

^  dlt_del(target) ; 

/*  delete  the  initialization  values  of  */ 
/*  desc.  (if  have)  from  INITI  and  */ 

,  /*  update  symtable  */ 

if  jord.ini  !=  1)  7 

posit  =  symtfdel  symj.ini  num  ; 
filecount  =  0  ; 
num  =  3 

j  chginitO  ; 

/*  delete  the  printout  of  the  desc.  */ 
/*  (if  have)  from  PRNT  and  update  */ 

/*  symtable  */ 

filecount  =  0  ; 

target  =  symt(del  sym] .pri  num  ; 

ersprnt()  ; 

fclose(tp) ; 

fclose(tb); 

fclose( tc) ; 

fclosef t4) ; 

fclose(td) ; 

fclose(t5) ; 

fclose(tm); 

fclose(t2) ; 

/*  restore  the  files  */ 

tc  =  fopen("dsdescf" , "w" ) ; 
t4  =  fopent "d:temp4M , "r" ) ; 
td  =  fopenr'dsdelf" ,  "w") ; 
t5  =  fopen("djtemp5u ,"r") ; 


;tc; 

ill 

i 


prnt","w") • 
temp6"  , 11  r" ) ; 
modi" , "w" ) ; 
temp2" , "r" )  ; 


tp  =  fopen("d 
to  =  fopen("d 
tm  =  fopen("d 
t2  =  fopen("d 
fcopy(t4, tc 
fcopy(t5,td 
fcopy(t6,tp 
fcopy(t2, tm 
fclose ' 
fclose 
fclose 
fclose 
fclose 
fclose 
fclose 
fclose . 

/*  update  all  tables 
olddel_sym  =  del_sym  ; 
del_sym  =  del_sym  +1; 
for  (1  =  del_sym;  i  <  sym_count ;  i++) 

j  =  i  -  1; 

strcpy(symt[ j] . name, symt [i] .name) ; 
"  '  .aescno  =  symtTi] .descno; 
.funcno  =  symt [i] .funcno; 
.fanld  =  symt[i] .fanld; 

•despos  =  symtf ■’  J - 

jl.delpos  =  symt 
.ini_num  =  symt 
•pri_num  =  symtril.pri  num; 
.pri_val  =  symt[ij.pri  val; 


*/ 


} 


symt 

symt 

symt 

symt 

symt 

symt 

symt 

symt 


sym  count  =  sym  count  -  1; 
del_dct  =  del  dct  +  1; 
for 


i1 


} 


del_3ct;  i  <  dptr;  i++) 
j  =  i  -  1 ; 

strcpy(desct [1] . fun, desct { i] . fun) ; 
if  (desct [ i] .dnum  >  olddel  sym) 

desct[j] .dnum  =  desct[ij.anum  -  l  ; 
else 

desct[j] .dnum  =  desctfi] .dnum  ; 


dptr  =  dptr  -  1; 
del  ip t  =  del_ipt  +  1; 
if  Tdel_ipt  <=  inum) 

for.(i  =  del_ipt; 


{ 


i  <  inum;  i++) 


]  =  i-l; 

strcpy(inptab[j] .iname,inptab[i] .iname) 
J 1  —  -  ~  --  r  J 1 . inp_num 


inptabh] . inp  num  =  inptab [i 
strcpyi inptabTj ] . inpl , inptab 


strcpyi inptab 
strcpyi inptab 
strcpyi inptab 
strcpyi inptab 
strcpyi inptab 
strcpyi inptab 
strcpyi inptab 
strcpyi inptab 
strcpy( inptab 


3 

3 

3 

3 


. inp2 , inptab 
.  inp3 , inptab 
. inp4, inptab 
.inp  5,  inp  tab 
.  inp6 , inptab 
.  inp7 , inptab 
.  inp8 , inptab 
.  inp9 , inptab 


.inpl 
.  inp2 
.  inp3 
. inp4) 
. inp  5 , 
.  inp6 

4np7 

. inpS] 
inp9. 


inplO, inptab [i] .inplO) 


} 


} 


val_sym  = 
if  | code  ==  0) 


inptabf  j]  .ifin  =  inptab[i]  .ifm; 
inum  =  inum  -  1; 
val_sym  -  1  ; 
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parseid(4) ; 
repl(l) • 

error(l) ; 


■END  DELGATE- 


*  * 

*  ERSINP  SUBROUTINE  * 

■k  k 

k-kkirk-k'k'k'kkkirkkk'kkkk-kkkk-kkkkkkkkkkkkkkkk'kkkkirkirkkkk'kkkkkkkk-kkkkkkk  ) 

/*  this  routine  erases  an  input  from  the  circuit  */ 

ersinpO 
xnt  i,  j  ; 

/*  verify  if  has  more  than  one  deletion  */ 
while  (delimiter  !=  2) 

filecount  =  0  ; 


tc  =  fopen("d:descf" , "r" ) ; 
t4  =  fopen("dstemp4ll,"wM); 
parse id (maxkey) ; 

printfC1 . deleting  input  ]s\n" , tokenjbuf) ; 

/*  update  tables 
for  (i  *  0;  i  <  val^sym;  i++) 

if  (strcmp(symt[i] .name,token_buf)  ==  0) 
break; 
del_sym  =  i; 
skp  =  0; 

for  (i  =  0;  i  <  del_sym-  i++) 


skp  =  skp  +  symtTiJ .despos  ; 

/*  delete  the  descriptor  from  DESCF 
cp_sim( skp , tc , t4) ; 
tot  val  =  symt [del  syml .despos; 
for  (i  =  0;  i  <  tot_val;  i++) 
fscanf (tc , "Id" ,&numl) ; 
skpl  =  skpc  -  tot_val  -  skp  ; 
skpc  =  skpc  -  tot  val  ; 
cp  sim(skpl , tc, t4)  ; 
del_sym  =  del_sym  +  1  ; 

/*  update  the  tables  */ 
for  (i  =  del_sym;  i  <  sym_count;  i++) 

^  j  =  i  -  1  ; 

strcpy(symt[j] .name, symt [ij .name) ; 
symtn]  .descno  =  symtTi] .descno  ,• 


symt  q  .funcno  =  symt[i] . funcno 
symt  q  .fanld  =  symt(i] . fanld  ; 
symt  q  . despos=symtf i] .despos  ; 
symt  q  .delpos=symt[i] .delpos  ; 
symt  q  .ini_num=symtril .ini_num 
symt  'q  .pri_num=symt  i'  .pri_num 
symt[q  .pri_val=symt [ i J .pri_val 

for  (i  =  0;  i  <  dptr;  i++) 

desctfi] .dnum  =  desct[ij .dnum  -  1  ; 
val_sym  =  val_sym  -  1  ; 
sym_count  =  sym_count  -  1  ; 
fclose( tc) ; 
fclose(t4) ; 

tc  =  fopen("d:descf" , "w") ; 
t4  =  fopen("d:temp4","r"); 
fcopy(t4,tc)  ; 
fclose(tc) ; 


fclose(t4) 


APPENDIX  E 

THE  PRECOMP  PROGRAM  FOR  THE  EDITOR 


/ **************************************** ********************** *** 
*  * 


* 

* 

* 

* 

* 

* 

* 

* 

* 


Precomp  Program 
for  the 
Editor 

VERSION  3.1,  14  Apr  1987. 

Original  version  developed  under  MSDOS  and  PCDOS  by 
Julio  Cesar  Lopes  de  Albuquerque  at  Naval  Postgraduate 
School.  Use  with  EDITOR  version  3.1. 


* 
* 
* 
* 
* 
* 
* 
: k 
* 


•k'k'k'k-k-k-k'k-k-k’k'k'k'k'k'k'k'k'k'k'k-k'k-k'k-k-k'k-k-k'k'k'k'k'k-k'k-k'k-k-k'k'k'k-k-k-k-k-k-k-k-k'k-k-k-k-k-k-k-k-k-k’k-k'k  t 


tfinclude  "\lc\stdio.h"  /*<stdio.h>  in  DOS  3.x  environment  */ 


#define  maxkey  30 
#define  maxsym  500 
#define  maxprim  100 
ttdefine  maxouts  32 
#define  maxnorm  50 
#define  maxk  14 


/*  maximum  number  of  keywords  */ 

/*  maximum  number  of  primitives  */ 

/*  maximum  of  32  outputs  per  prim.  */ 

/*  user  options  for  the  program  */ 


/* . GLOBAL  DECLARATIONS . */ 

/* . */ 


/* . DATA  STRUCTURES . */ 

/*  the  names  and  meanings  are  the  same  from  the  EDITOR  */ 
struct  sym_tab  { 
char  name [8]  ; 
int  descno,  funcno  ; 
int  fanld; 
int  despos,  delpos; 
int  ini_num,  pn_num; 
int  pri_val; 


struct  desc  tab  { 
char  fun [8]  ; 
int  dnum  ; 


struct  norm  tab  { 
char  nom[8]  ; 
int  nmld  ; 


struct  prim  tab  { 
char  namfal  ; 
char  nam2[8]  ; 
int  numpar,  outp  ; 
int  normld,  fanout  ; 
int  technology,  overld  ; 


struct  err  stack  { 
char  nm[8]  ; 
int  errno  ; 


struct  exp_tab  { 
char  fname[3]  ; 


struct  namepair  { 
char  e_fromr8]; 
char  e_to[8J; 


struct  swapname  { 
char  sname[8] ; 
int  used; 


struct  inp_name  { 
char  iname[8]; 
int  inp_num; 

_ «  _ _ ■*  r 


char  inpl 
char  inp3 
char  inp5 
char  inp7 
char  inp9 
int  if  in; 
} ; 


inp2 

inp4 

inp6 


iSIfifii , 


struct  tab_del  { 

int  indx,  dsc_nb,  typ_num; 
int  num  lpt,  num_opt,  val; 

. 


■*/ 


/* . STORAGE  ALLOCATION . */ 

extern  struct  sym_tab  symt[maxsym]  : 

extern  struct  desc_tab  aesct[maxsym]  ; 

extern  struct  norm_tab  nortfmaxnorm]  ; 

extern  struct  prim_tab  primtfmaxprim] ,  *primptr  ; 

extern  struct  err_stack  errt[5]  ;  /*  max  of  5  errors  per  line  */ 

extern  struct  inp_name  inptab[maxsym] ; 
extern  struct  tab_del  del_tab[100] ; 

extern  int  err_ptr  ;  /*  error  table  pointer  (count)  */ 

/*  for  one  line.  */ 

extern  int  desc  no  ,  svm_count,  symid  ;  /*  desc  no  =  desc.  count  */ 

extern  int  dptr,  descia,  lim  ;  /*  descriptor  table  indices  */ 

/*  dptr  =  descriptor  table  cnt  */ 

extern  int  end,  outpar; 
extern  int  savid[maxouts]  ; 
extern  int  savprxm,  no_new; 


extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 


int  savn[maxouts] ; 

int  matcount  ;  /*  delay  matrix  count 

int  delimiter,  bb  ;  /*  delimiter  =  delimiter  type 

/*  bb  =  buff [80]  index  (line) 
int  rdmat[maxouts] [maxouts] ,  fdmat[maxouts] [maxouts]  ; 

/*  rise  and  fall  delay  matrices 
int  toknn,  err_count  ;  /*  err_count  =  error  count 

int  normcount  ;  /*  normtable  count 

int  filecount;  /*  poutcount  used  for  debugging 

int  prinpflag;  /*  controls  printing  of  source 

int  primcount,  primid  ;  /*  prim counr  =  #  or  primitives 

char  token_buf [8J,  savbuf[81 ,  5uffT80]  ;  /*  buff  =  1  line 
char  keywordfmaxkey] [8]  ;  /*  keyword  table 

kev[maxkl [8] :  /*  key  table 

5htable[100l ;  /*  the  hash  table 

/*  number  of  items  in  hashtable 


able 


char 
int  has 

int  hashcount* 
int  new; 
int  lim,  index,  indexl 
int  parm2,parml,  target 
int  pari,  par2,  savparl 
int  savpar2,  num  ; 
int  valact,  skp2  ; 


*/ 

*/ 


*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*  pointer  to  input  data  file 
/*  pointer  to  temp  file 


extern  int  savn[maxouts] ; 


extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
/* - 


FILE  *rl 
FILE  *tl 
FILE  *t2 
FILE  *t3 
FILE  *t4 
FILE  *t5 
FILE  *t6 
FILE  *tc 
FILE  *td 
FILE  *tm 
FILE  *ti 
FILE  *tp 
FILE  " 
FILE 


*T> 

SJ 


FILE  *de 
FILE 
FILE 


'nm 

ip 


FILE  *dp 


*/ 

*/ 


/* 

/* 

/* 

/* 

/* 

/* 


pointe 

table 


symt  table  stored  for  edition 
desct  table  stored  for  edition 
nort  table  stored  for  edition 
input  table  stored  for  edition 
delay  table  of  the  descriptors 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

-*/ 


/A**************************************************************** 
*  * 

*  IDOUT  SUBROUTINE  * 

*  * 


******* ***************************** ************************* A*** j 

I*  This  subroutine  will  verify  what  output  or  internal  variable  */ 
/*  will  be  used  in  the  present  case.  */ 


IDOUT () 

outpar  =  -1; 
while  (1) 


S&^)token7*u£l  i 


strc 

M  < 

end  =  1 
break  ; 


if  }  found,  end  edition 


*/ 


(toknn  ==  29)  /*  if  #  found,  end  this  part 


*/ 


i| 

end  =  2  ; 
break  ; 

il  (toknn  <  maxkey)  /*  left  hand  side  should  not  be  a  keyw .*/ 
error (25)  ; 
outpar  =  outpar  +  1  ; 
findprim()  ; 

if  (primid  <  prim  count) 
error(25)  ; 
f indid()  ; 
if  (symid  >=  0) 

{  /*  save  output  indices  in  an  array  */ 

savid[outpar]  =  symid  ; 

^savn[outpar]  =  symt [ symid] .descno  ; 

valact  =  savidfO]  ; 
skp2  =  syrntTvalact] .despos  ; 
svmt [valact] .despos  =  0  ; 
if  (de’ - ■ 


/*  output  name  is  a  keyword 
/*  find  the  symbol  table  in- 


index 


*/ 

*/ 


.  slimiter  ==  4)  /*  •=•  should  follow  the  output  names 
break  ; 


else 

if  (delimiter  !=  1) 
j  error(31 )  ;  /*  1 , • 


expected  after  each  name 


*/ 


*/ 
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/* 


•END  IDOUT- 


■*/ 


/***************************************************************** 

*  IDINP  SUBROUTINE  * 

*  * 

***************************************************************** j 

/*  This  subroutine  will  make  the  scan  of  all  the  inputs  that  will*/ 
/*  be  used  in  a  determined  gate.  */ 

IDINP (code) 
int  code; 


{ 


int  savpar,  savinp  ; 
int  fwdb  ; 
fwdp  =  o  ; 

savpar  =  primtfprimidl .numpar 
no_new  =  primt[primid] .outp  ; 
savinp  =  0  ; 
savprim  =  primid 


/*  number  of  inputs  */ 
/*  number  of  outputs  */ 

-  r. ,  /*  save  primitive  */ 
strcpy(savbuf ,  tokenjbuf)  ;  /*  save  function  name/ type  */ 
while  (savpar  !=  0)  /*  while  all  inputs  have  been  scanned  */ 


{ 


parseid(maxkey) 
switch( savinp; 

case  0  : 

case  1  : 

case  2  : 

case  3  : 

case  4  ; 

case  5  s 

case  6  : 

case  7  : 

case  8  : 

case  9  : 

savinp  =  savinp  +  1 
f indid()  ; 


;  /*  parameter  of  function 

/*  update  inptable 

strcpy(inptab(code] .inpl, token  buf) ; 
break; 

strcpy(inptab[code] .inp2, token  buf); 
break; 

strcpy(inptab[code] . inp3, token  buf) ; 
break; 

strcpy(inptab[code] .inp4, tokenjbuf) ; 
break; 

strcpy(inp tab [code] .inp5,token_buf) ; 
break; 

strcpy(inptab(code] ,inp6,token_buf) ; 
break; 

strcpy(inptab(code] . inp7 , token_buf ) ; 
break; 

strcpy(inptab[code] ,inp8, token  buf ) ; 
break; 

strcpy( inptab[code] . inp9 , tokenjbuf ) ; 
break; 

strcpy(inp tab [code] .inplO, token  buf); 
break; 


/*  find  parameter's  location  in  the 


*/ 

*/ 


connect(0,savn,fwdp) ;/*  generate  code  and  update  fanld 
if  (savpar  ==  1) 


*/ 

*/ 


if  (delimiter  !=  5) 
error (32)  ; 


savpar  =  savpar  -  1  ; 
if  (savpar  1=  0) 

if  (delimiter  !=  1) 
error(31)  ; 
parseid(maxkey)  ; 


)'  expected  after  the  last  arg.  */ 


/*,  expected  after  first  parameter  */ 


/*  get  next  argument 
/*  update  inptable 


switch( savinp) 

case  0  :  strcpy(inptab[code] .inpl, token  buf) ; 
break; 

case  1  :  strcpy (inptab [code] ,inp2, token  buf) ; 
break; 


*/ 

*/ 
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case  3 


case  5 


case  2  :  strcpy(inptafa[code] .inp3,token_buf) ; 
break; 

case  3  :  strcpy(inptab[code] . inp4, token_buf ) ; 
break; 

case  4  s  strcpy(inptab[code]  .inp5,token__buf)  ; 
break; 

case  5  :  strcpy(inptab[code] .inp6,token_buf) ; 
break; 

case  6  :  s trcpy (inp tab [ code ] .inp7, token Jbuf) ; 
break; 

case  7  :  strcpy(inptab [code] .inp8,token_buf) ; 
break; 

case  8  :  strcpy(inptab[code] .inp9,token_buf) ; 
break; 

case  9  :  s trcpy (inptab [code] .inplO,token_buf) ; 
break; 


case  6 


case  7 


case  8 


case  9 


savinp  =  savinp  +  1 
if  (savpar  >  1) 


if  (delimiter  !=  1)/*  ,  expected  after  argument 
error(31)  ; 


else 

if  (delimiter  !=  5) 
error(32)  ; 

fmdid()  ; 


/*  )  expected  after  last  arg. 


/*  multioutput  case  */ 


fmdid()  ;  /*  find  symbol  table  index  for  the  */ 

/*  input  name  */ 

coimect(l,savn,fwdp) ;  /*  generate  code  and  update  fanld  */ 
savpar  =  savpar  -  1  ; 
fwdp  =  fwdp  +  1  ; 

if  (outpar  >  0)  /*  multioutput  case  */ 

outpar  =  outpar  -  1  ; 
else 

if  (savpar  1=  0)  /*  multiinput  case  */ 

fprintf (t4, "1  ]d  15  ]d  ",  savn[fwdp  -  1],  desc_no)  ; 
^rintf(t4,"l  Jd  16  Jd  ",  desc_no,  savntfwdp  -  1])  ; 
fadvance(8, t4)  ; 

symt[valact] .despos  =  symt[valact] .despos  +  8  ; 
savn[fwdp]  =  desc_no  ; 
desc_no  =  desc_no~+  1  ; 

i  1 

}  /*  end  if  */ 


/*  multiinput  case  */ 


",  savn[fwdp  -  11,  desc_no) 
",  desc_no,  savntfwdp  -  1]) 


■END  IDINP- 


/**********************************★****************************** 

*  FIND  ID  SUBROUTINE  * 

*  * 

******************************************************************  j 

/*  finds  the  symbol  table  index.  An  error  message  is  generated  if*/ 
/*  the  name  doe**  not  exist  */ 


findid( ) 
int  i  ; 

for  (i  =  0;  i  <  sym  count;  i  =  i  +  1) 

if  (  strcmp(token_buf ,symt[i] .name)  ==  0) 
break  ; 

if  (i  ==  sym_count)  /*  name  not  found  in  the  symbol  table  */ 

error(28)  ;  /*  undeclared  name  */ 

symid  =  -1  ; 


symid  =  i  ; 


■END  FIND_ID- 


/***************************************************************** 

*  * 

*  FIND.PRIM  SUBROUTINE  * 

*  * 

******************* A********************************************* i 

/*  finds  the  primitive  that  will  be  used  in  the  PRIMITIV.DAT  file*/ 
findprim() 
int  i  ; 

for  (i  *  0;  i  <  prim  count;  i  =  i  +  1) 

if  (  strcmp(token_buf ,primt[i] .nam2)  ==  0) 
break  ; 
primid  =  i  ; 

. END  FIND_PRIM . */ 


I  ***************************************************************** 

*  OUTERROR  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  This  routine  outputs  all  errors  encountered  in  a  line  after  */ 
/*  entire  line  has  been  read.  */ 

outerror(> 

int  i; 
i  =  0  ; 

while  (err_ptr  >=  0)  /*  if  error  count  for  a  line  is  >  0  */ 

{  /*  print  all  errors  encountered  */ 

errmessage(errt[i] .errno)  ; 
i  =  i  +  1  ; 

err_ptr  =  err_ptr  -  1  ; 


■END  OUTERROR- 


/***************************************************************** 

*  ERROR  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  This  routine  enters  the  error  number  and  the  name  of  the  wrong*/ 
/*  identifier  in  the  errt  (error  table).  The  errors  are  printed  */ 
/*  after  the  whole  line  has  been  scanned.  */ 


error(i) 

int  l  ;  /*  i  =  error  number  */ 

{ 

err  otr  =  err_ptr  +  1  ;  /*  error  count  for  one  line  */ 

errt[err_ptr] .errno  =  i  ;  /*  errno  =  error  number  */ 

st?*cpy(errt[err_ptr]  .nm,  token_buf)  ; 

/*  copy  name  of  wrong  identi.*/ 

/*- . END  ERROR . */ 


j ***************************************************************** 

*  ERRMESSAGE  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  prints  the  message  of  error  that  corresponds  to  the  error  found*/ 


errmessage(i) 
int  i  ; 


/*  i  =  error  number  */ 

/*  errptr  =  global  indicating  error  table  index  */ 

ERROR  ")  ; 


case  5 


case  6 


case  7 


case  26: 


printff"  ERROR  ")  ; 

switch(i) 

{ 

case  0  :  printf ("  'INSERTION'  expected\n")  ; 

break  ; 

case  1  :  printf ("  'REPLACE'  expected\n")  ; 

break  ; 

case  4  :  printf("  '{'  expected.  ]s  found\n", 

errt[err_ptrj .nm)  ; 

break  ; 

case  5  :  printf ("  '}'  expected.  ]s  found\n", 

errt[err_ptr J .nm)  ; 

break  ; 

case  6  :  printf ("  'INITIALIZE'  expected, ]s  found\n", 
errt[err_ptr] .nm)  ; 

break  ; 

case  7  :  printf("  'PRINTOUT'  expected,  ]s  found\n" , 
errt[err_ptr]  .nm)  ,- 

break  ; 

case  25:  printf("  name  ] s  is  a  keyword\n“, 
errt[err_ptr] .nm)  ; 

break  ; 

case  26:  printf ("  count  =  ]d,  >>EDITION  discontinued\n" ,err_count) ; 

break  ; 

case  27:  printf ("  '='  expected  after  ]s\n", 

errt[err_ptr] .nm)  ; 

break  ; 

case  28:  printf ("  ]s  is  undeclared\n" , 

errt[err_ptr] .nm)  ; 

break  ; 

case  29:  printf ("  '('  expected  after  ]s\n", 

errt[err_ptr] .nm)  ; 

break  ; 

case  30:  printf("  ]s  is  undefined  function\n", 

errt[err_ptr] .nm)  ; 

break  ; 

case  31:  printf("  ','  expected  after  ]s\n", 
errt[err_ptr] .nm)  ; 

break  ; 

case  32:  printf("  ')'  expected  after  ]s\n", 
errt[err_ptr] .nm)  ; 

break  ; 

case  33:  printf ("  unexpected  EOF\n"); 

break  ; 

case  34:  printf ("  missing  END\n")  ; 

break  ; 

case  35:  printf("  incorrect  #  of  args.  on  LHS  ]s\n" 

,  errt[err_ptr] .nm)  ; 

break  ; 

case  36:  printf ("  in  syntax,  ]s  unrecognized  \n", 

errtlerr_ptr] .nm)  ; 


case  34: 


case  37 : 
case  38: 
case  39: 


break; 


break  ; 

case  40:  printf("  2nd  DELAY  index  is  >  lim\n"); 


case  41 : 


count  =  10,  >>Edition  discontinued\n" ) ; 
=  0,  ***END  OF  EDITION***\n")  ; 

1st  DELAY  index  is  >  lim\n"); 


missing  {\n")  ; 


case  42:  printf ("  missing  INITIALIZER")  ; 
break  ; 

case  43:  printf {"  missing  ';'\n")  ; 


case  44:  printf ("  undefined  function\n")  ; 


} 


break  ; 

case  46 :  printf("  missing  }\n")  ; 
break  ; 

case  47:  printf("  missing  ' )'\n"); 
break; 

case  49:  printf("  incorrect  #  of  input  arguments  in  call\n"); 
break  ; 

case  50:  printf("  incorrect  #  of  out  arguments  in  call\nM); 
break  ; 


err  count  =  err_count  +  1 
if  (err_count  >  9) 


{ 


} 


error(37) 
outerror() 
exit(0)  ; 


/* 


■END  ERRMESSAGE- 


■*/ 


/A**************************************************************** 

*  PRIM  SUBROUTINE  * 

*  * 

********************  *********  A***********************************  j 

/*  verify  what  primitive  will  be  used  */ 

prim(codel,  code2) 
int  code I,  code 2; 

{.  . 

int  ]  j 

/*  savid[]  saves  symbol  table  indexes  while  savn[]  saves  desc. 

/*  numbers  for  output  list  names 

getid(rp,33)  ;  /*  function  name 

if  (delimiter  !=  6)  /*  '('  should  follow  function  name 

error(29)  ; 
if  (err_count  ==  0) 

{ 

if  (outpar  >  0)  /*  if  #  of  outputs  >  1,  connect  exten-  */ 

{  /*  sion  pointers.  */ 

for  (j  =  0;  j  <  outpar;  j  *  j  +  1) 

. . -------  -lfSav^jj^  savn[ j+ll ) 


*/ 

*/ 

*/ 

*/ 


fprintf(t4,  "1  Id  15  Id  ",savn[jl.  savn[j+ll)  ; 
fprintf(t4,"l  ]a  16  ]a  ",savnn+l|,  savn[0]j  ; 
symt[valactl .despos  =  symt[valact] .despos  +  8  ; 
f advance ( 8, t4) 


} 


} 


findprim()  ; 

if  (primid  >=  prim_count) 

findid()  ;  /*  function  name  is  a  type  */ 

^primid  =  symt[symid] .funcno  ; 

inptab[codell .inp  num  =  primt [primid] .numpar  ; 
if  (err_count  ==  0) 


{ 


symtfvalact] .despos 


fprintf (t4, "33  ]d  ]d  11  .savnfO] , primid)  ; 

symt[valact] .despos  + 

f advance (3 ,t4)  : 
if  *  • 


(primt [primid] .outp  !=  (outpar+1)) 
error(35)  ;  /*  #  of  outputs  should  be  as  in  table 

for(j  =0;  j  <=  outpar;  j  ■  j  +  1)  /*  update  symbol  table 

{  /*  and  desc  table 

symt[ (savid[j])] .funcno  =  primid  ; 
updesct(token_buf ,  savid[ j J ,  code2)  ; 
code2  =  code 2  +  1; 


*/ 

*/ 

V 


END  PRIM 


/A**************************************************************** 

*  STRCPY  SUBROUTINE  * 

*  * 

********************************* ********************************y 

/*This  subroutine  performs  the  copy  from  one  string  to  another  */ 

strcpy(s,t)  /*  copies  s  =  t  */ 

char  *s,  *t  ; 

{ 

while (*s++  =  *t++) 


-END  STRCPY- 


/***************************************************************** 

*  * 

*  GETID  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  This  subroutine  makes  the  search  in  the  VOHL  file  to  verify  /* 
/*  the  next  identifier  that  will  be  used  */ 

getid(rx,  ernm)  /*  finds  the  next  id  and  returns  it  in  token  buf  */ 
mt  ernm  ;  /*  error  number  in  case  of  EOF  */ 

FILE  *rx  ; 

{ 

xnt  i  ,  c,  flag  ; 
flag  =  0  ; 
delimiter  =  -1  ; 
i  =  0  ; 


while ( (delimiter  <  1  )  | I  (flag  ==  0)) 
{  /*  flag  *  1  whe 

/*  read  into  to 


c  =  fgetc(rx)  ; 
buff [Bb]  =  c  ; 
bb  =  bb  +  1  ; 
if  (bb  >  78) 

if  (prinpflag  ==  1) 

/*  printf("  ] -s\n" ,buff )  ; 


/*  flag  =  1  when  some  non  blank  char  is  */ 
/*  read  into  token  buffer  */ 

/*  buff  is  the  80  character  buffer  for  */ 
/*  printing  the  entire  line  after  it  is  */ 

/  _ _ _ a  _  J _ J _ r _  i _ rr  x  / 


/*  read. 


bb  =  index  for  buff 


y  ^rintf(" 
bb  =  0  ; 


switch(c) 
case  1 


s  delimiter  =  -1 
break  ; 

s  delimiter  =  1  ; 
break  ; 

s  delimiter  =  2  ; 
break  ; 

:  delimiter  =  3  ; 
break  ; 

»  delimiter  =  4  ; 
break  ; 

:  delimiter  =  5  ; 
break  ; 

:  delimiter  =  6  ; 
break  ; 

:  if  (flag  ==  1) 
delimiter  =  7 


buff [bb-1]  =  ' \0  • 


/*  flag  =  1  indicates  that  */ 
/*  some  non  blank  character*/ 
/*  was  read  into  token_buf  */ 


if 


jprinpflag  ==  1) 

/*  J5rintf("]-s\n",buff)  ; 


print  the  line  and  */ 


outerror()  ,* 

bb  =  0  ; 
break  ; 

case  EOF  s  printf("]-s\n",buff)  ; 
error(ernm)  ,- 
error(33)  ; 
outerror()  ; 
exit(O)  ; 
break  ; 

default  :  flag  =  1  ,- 

delimiter  *  0  ; 

(delimiter  ==  0  ) 

if  (i  <=  6  ) 

{ 

token  buffi]  =  c  ; 
i  =  i  +  1  ; 

i 1  ’ 

tokenjbuffi]  =  ' \0 1  ; 


if 


{ 


/*  output  errors  in  the  */ 
/*  line  if  any.  */ 

/*  initialize  line  buff  */ 


/*  EOF  error  */ 

/*  abort  the  program  */ 


-END  GETID- 


■*/ 


/★A*************************************************************** 
v  * 

*  FIND_TOKEN  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  Token  =  maxkey  if  a  nonkeyword  name  is  encountered.  It  is  */ 
/*  equal  to  the  index  of  the  keyword  in  the  keyword  table  */ 

find_token() 

int  i  ; 

for  (i  =  0;  i  <  maxkey;  i  =  i  +  1)  /*  sequential  search  */ 

if  (strcmp  (token_buf ,keyword(ij )  ==  0  ) 
break  ; 

toknn  =  i  ;  /*  token  =  maxkey,  if  match  is  not  found  */ 

A . END  FIND.TOKEN . - . */ 


j ***************************************************************** 

*  FIND_KEY  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  To  verify  what  is  the  function  that  the  user  want  to  use  */ 
find_key() 

r  . 

int  i  ; 

for  (i  =  0;  i  <  maxk;  i  =  i  +  1)  /*  sequential  search  */ 

if  (strcmp  (tokenjbuf ,key(i] )  ==  0  ) 
break  ; 

toknn  =  i  ;  /*  token  =  maxk,  if  match  is  not  found  */ 


/ 


■END  FINDKEY- 
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/A**************************************************************** 

*  * 

*  FCOPY  SUBROUTINE  * 

*  * 

************ A************************ A*************************** J 

/*  copy  one  file  in  another  */ 


fcopy(rr,  ww) 

FILE  *rr,  *ww  ; 

int  c  ; 

while  ((c  =  getc(rr))  !=  EOF) 
putc(c,ww)  ; 

/* . END  FCOPY- 


^***************************************************************** 

*  CONNECT  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  Circular  list  generation  for  the  circuit.  Previous  list  is  */ 
/*  broken  and  new  circular  loop  is  made.  */ 

connect(f ,savn, fwdp) 

int  f  ;  /*  f  is  0  or  1  */ 

int  savn[],  fwdp  ;  /*  savn  has  desc  #  of  output  names  */ 

int  i  ; 

if  (err  count  ==  0) 

{ 

/* - - - update  fanld - */ 

for  (i  =  0;  i  <  normcount;  i  *  i  +  1)  /*  find  name  in  nort  */ 

if  (strcmp(nort[i] .nom,savbuf)  ==  0) 
break; 

if  (i  <  normcount)  /*  if  over  ride  is  used  for  norm  load  */ 
symt[symid] .fanld  =  symt[symidl. fanld  +  nort[i].nmld  : 
else  7*  use  default  value  from  prim,  lib  */ 

symt[symid] . fanld=symt[symid] .fanld  +  primt[savprim] .normld; 
/* - */ 

fprintf (t4,"2  Id  ",  symt[symid1 . descno)  ; 
fprintf (t4, "3  Jd  ",  symt[symidj .descno)  ; 

/*  save  current  pointer  from  the  input  */ 
fprintf(t4,"l  Id  8  ]d  ", symt[ symidl.de scno,  savn[fwdp])  ; 
fprintf(t4,"l  d  11  Id  " ,symt[symid] . descno, f ) ; 
fprintf (t4, "1  d  9  ]a  ",  savn [fwdp].  f)  ; 
fprintf (t4, "1  Jd  12  ]d  ",  savnffwdp),  f)  ; 

/*  complete  the  C-list  */ 

fprintf(t4,"  \n"); 

symt[valact] .despos  =  symt[valact] .despos  +  20  ; 
filecount  =  0  ; 


-END  CONNECT - 


/*****************************************J.  *********************** 

*  * 

*  **  PARSEID  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  This  subroutine  verifies  of  what  type  is  the  next  identifier  */ 

/*  that  will  be  used.  *1 


parseid(i) 
int  i  ; 

{ 

getid  (rp,33)  ; 
find_token()  ; 
if  (toknn  ==  maxkey) 


/*  i  =  token  number  to  be  compared  to  */ 

/*  find  the  next  identifier  */ 

/*  find  token  number  */ 

/*  check  if  name  !=  function*/ 


findprim()  ; 

if  (primia  <  prim  count) 
error(25)  ; 

if  (toknn  !=  i) 
error(i)  ; 


/*  keyword  found 

/*  identifier  of  type  1  i ‘ 
/*  expected. 


-END  PARSEID- 


/***************************************************************** 
'  *  * 

*  FADVANCE  SUBROUTINE  * 

*  * 


A****************************************************************  J 

/*  This  subroutine  advances  a  counter  while  doing  the  SIMDATA  */ 
/*file  to  allow  the  change  of  line.  */ 

f advance (numm , rx) 
int  numm  ; 

FILE  *rx  ; 

{ 

filecount  =  filecount+  numm  ; 
if  (filecount  >  22) 

{ 

filecount  =  0  ; 
fprintf (rx,"  \n")  ; 

}  } 

/* . END  FADVANCE . */ 


I  ***************************************************************** 

*  STRCMP  SUBROUTINE  * 

*  * 


*****************************************************************  j 

/*  returns  zero  if  string  s  is  equal  to  string  t  */ 


strcmp(s,t) 

char  s[],  t[]  ; 

int  i  ; 
i  =  0  ; 

while^sm  ==  t[i 


uhiil!fihr=^U.) 

return  (0)  ; 
return(s[i]  -  t[i])  ; 


-END  STRCMP- 


/***************************************************************** 

*  * 

*  IDSTRING  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  <IDSTRING>  =>  id  ;  |  <IDSTRING>  id  ,  */ 


IDSTRING (code) 


while  (delimiter  !=  2) 

parseid(maxkey)  ; 
upda  te ( code , sym_count ) 


if  (code  ==  0  ) 

code_input ( desc_no ) 


/*  code  =  0  for  inputs,-!  for  outputs 
/*  -2  for  internals. 


/*  delimiter  =  ;  */ 

/*  name  */ 

/*  update  symbol  table  */ 
/*  code  =  0  for  input  */ 
/*  -1  for  output  */ 

/*  prim  #  for  TYPE  */ 

/*  input  code  gen.  */ 


if  (code  <=  0  ) 


END  IDSTRTNG 


/* 


new  =  new  +  1 ; 


*/ 


j ******* ************ **************** ****************************** 

*  UPDESCT  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  This  routine  updates  the  descriptor  table.  */ 

/*  s  =  function  name  (type),  num  =  symbol  table  index  */ 


updesct(s,  num,  code) 
char  s[8]  ; 
int  num,  code  ; 

{ 

strcpy(desctfcode] .fun,  s)  ; 
desctTcode] .an urn  =  num; 
if  (code  ==  dptr) 

dptr  =  dptr  +  1  ; 

A . END  UPDESCT . - . */ 


*/ 

*/ 


j ***************************************************************** 

*  UPDATE  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  This  routine  updates  the  symbol  table.  sym_count  =  symbol  */ 
/*  table  index,  desc_.no  =  descriptor  number, 

/*  typ  =  function  type,  0  =  input,  -1  =  output,  -2  =  internal 

update (typ, code) 
int  typ,  code; 

syrntTcodel .descno  =  desc_no  ; 
symt[code] .funcno  =  typ  ; 
strcpy(symt[ code] .name,  token_buf)  ; 

/* . END  UPDATE . - . 


.*/ 


I  ***************************************************************** 

*  CODE  INPUT  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  generates  the  code  for  the  input  descriptors  */ 


/*  i  =  desc_no  */ 


code_input(i) 
int  I  ; 

{  .  ■ 
int  1; 

if  (err_count  ==  0) 

{ 

fprintf (t4, "33  ]d  0  ",i)  ; 
j=hashf ( token_buf ) ; 
fprintf(t4,"l  ]d  0  ]d  ",i,  j)  ; 

/*  parameters  0  and  1  contain  the  input  line  name  */ 
fprintf (t4,"l  Id  2  1  ",i)  ; 
fadvance(l§, t4)  ; 


/ 


l 


) 


■END  CODE_INPUT- 


.*/ 


j ******** ********************************************************* 

*  HASHF  SUBROUTINE  * 

*  * 

*****************************************************************  j 


hashf(s)  /*  finds  hash  value  for  string  s  */ 
char  *s; 

{.  u  u  , 
mt  hashval  ; 

for  (hashval  =  0;  *s  !=  1 \0 *  ;) 

hashval  +=  *s++  ;  /*  convert 

test(&hashval) ;  /*  and  test 

hashtable [hasncount] =hashval ; 
hashcount++; 
return  (hashval)  ; 

}* . END  HASHF . 


/*  convert  from  string  to  #  */ 
/*  and  test  for  collision  */ 


/***************************************************************** 

*  * 

*  test  subroutine  * 

*  * 

*****************************************************************  j 


test (value) 
int  *value; 

{  .  . 

int  i,* 

for  ( i=0 ;  i<hashcount;  i++) 

if  (hashtable [ i] ==( *value ) ) 

(*value)=(*value)+ll ; 
test(value) ; 


/*  hashtable  collision?  */ 

/*  yes,  add  a  prime  number. 
/*  and  test  again  51 


■END  TEST- 


I  ***************************************************************** 

*  CMODE  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  Code  generator  for  mode.  Code  is  generated  only  if  mode  !=  0  */ 

cmode(num,  fanl,  overl,  techl) 
int  num,  fanl,  overl,  techl  ; 

if  (num  <=  (fanl  +  overl)) 

^if  (techl  ==  16) 

fprintf (t5, "1  ]d  6  2  11  ,symt[descid]  .descno)  ; 
else 

fprintf(t5,''l  ]d  6  1  " ,symt(descid]  .descno)  ; 


if  (techl  ==  16) 

fprintf(t5,"l  ]d  6  3  11 , symt[descid]  .descno)  ; 
else 

fprintf (t5,"l  ]d  6  4  ", symt[descid] .descno)  ; 
f advance (4, t5)  ; 


END  CMODE 


j  ************************************************* **************** 

*  MATGEN  SUBROUTINE  * 

*  * 

*****************************************************************  j 

/*  Also  generates  default  mode  values  for  all  functions  involved  */ 

matgenfcode , codel ) 
int  code,  codel; 


int  pari,  par2,  i,  j,  k,  1,  m,  n  ; 
int  num,  fl,  ol,  t2; 
char  s[8] ; 


/* . DEFAULT  MODE  GENERATION . . 

for  (i  =  0;  i  <  sym_count;  i  =  i  +  1) 

if  (symt[i] .descno  >=  0) 

if  (symt[i] .funcno  >  0) 

descid  =  i  ;  /*  cmode()  needs  descid  for  code  gen. 

num  =  symtfi] .fanld  ; 

fl  =  primt '(symt [i] .funcno)] .fanout  ; 

ol  =  primt '  (symt  i'  .funcno)'  .overld  ,* 

t2  =  primt ' (symt [i'  . funcno)  . technology  ; 

if  (num  >  rl)  /*  if  non  zero  mode  */ 

cmode(num,  fl,  ol,  t2)  ; 

symt[i] .delpos  =  symt[i] .delpos  +  4  ; 

.  !  ' 


/* . DEFAULT  DELAY 

i  =  code  ; 
while (  i  <  codel) 

j  =  symt [ desct [ i] .dnum] .descno  ; 
k  =  symt [desct [i] .dnum] .funcno  ; 
n  =  desct[i] .dnum  ; 
symt [nl .delpos  =  0  ; 
strcpy?s,  primt[k] .nam2)  •  /* 

bdreaa(s)  ;  /*  read  block  de 


DEFAULT  DELAYS  AND  MATRIX  STRUCTURE - 


/*  descriptor  number  */ 
/*  function  number  */ 


strcpy(s,  primt[k] .nam2)  ;  /*  s  contains  name  of  function  */ 

bdreaa(s)  :  /*  read  block  delays  for  s  in  rd/fdmat  */ 

if  (k  >=  0)  /*  if  not  input  or  types  etc.*/ 

pari  =  primtfk] .numpar  ; 
par2  =  primt [k] .outp 
l  =  i  +  par2  -  1  ; 

/*  pari  =  number  of  inputs,  par2  =  number  of  outputs  */ 
for  (1=1;  1  <=  pari;  1=1+2)  /*  vertical  scanning  */ 

if  (1  >  2) 

if  (1  >  4) 

{ 

fprintf(t5."7  "); 

symt [n] .delpos  =  symt [n] . delpos  +  1  ; 

else 

fprintf (t5 . "6  ]d  ",j)  ; 

symt [n] . delpos  =  symt[n] .delpos  +  2  ; 


/*  inputs  =  1  or  2  */ 


fprintf (t5. "4  ]d  ",j)  ; 

symt[n] .delpos  =  symt[n] .delpos  +  2  ; 

f advance (2 ,t5)  ; 

/* - code  for  block  delays - */ 

if  (rdmat[l-l] [0]  ! =  -1) 

*  fprintf(t5,"5  2  ]d  " , rdmat[l-l] [0] ]  ; 
symt[n] .delpos  =  symt[n] .delpos  +  2  ; 

if ^ (fdmat[l-l] [0]  !=  -1) 

{  fprintf (t5. "5  3  ]d  «  fdmat [1-1]  [0] )  ; 
symt[n] .delpos  =  symt[n] .delpos  +  3  ; 

if  ((1+1)  <=  pari) 

if  (rdmat[l] [0]  !=  -1) 

fprintf(t5  "5  4  ]d  « ,rdmat[l] [0] )  : 
symt[n] .delpos  =  symt[n] .delpos  +  3  ; 

if*(fdmat[l] [0]  !=  -1) 

*  fprintf (t5. "5  5  ]d  ",fdmat[l] [0] )  ? 
symt[n] .delpos  =  symt[n] .delpos  +  3  ; 

}  } 

fadvance(21,t5)  ; 

/* . - . */ 

for  (m  =  2;  m  <=  par2  ;  m  =  m  +  1) 

^if  (m  ==  2) 

{ 

fprintf (t5. "14  ]d  ",matcount)  ; 
symt[n] .delpos  =  symt[n] .delpos  +  2  ; 
matcount  =  matcount  +  1  ; 

else  /*  if  number  of  outputs  >  2  */ 

fprintf (t5. "15  ]d  ]d  ",  matcount  -  1,  matcount)  ; 
symt[n] .delpos  =  symt[n] .delpos  +  3  ; 

^matcount  =  matcount  +  1  ; 

f advance ( 3, t5)  ; 

/* — - code  for  block  delays - */ 

if  (rdmat[l-lj [m-1]  !=  -1) 

fprintf (t5. "16  ]d  ]d  " ,matcount-l,rdmat[l-l] [m-1] )  ; 
symt[n] .delpos  =  symt[n] .delpos  +  3  ; 

if  (fdmat[l-l] [m-1]  1=  -1) 

fprintf (t5. "17  ]d  ]d  " ,matcount-l , fdmat[l-l] [m-1] )  ; 
symt[n] .delpos  =  symt[n] .delpos  +  3  ; 

if  ((1+1)  <=  pari) 

if  (rdmat[l] [m-1]  !=  -1) 

fprintf(t5 . "18  ]d  ]d  ",matcount-l,rdmat[l] [m-1] )  ; 
symt[n] .delpos  =  symt[n] .delpos  +  3  ; 

if}(fdmat[l][m-l]  !=  -1) 

fprintf (t5. "19  ]d  ]d  ",matcount-l,fdmat[l] [m-1])  ; 
symt[n] .delpos  =  symt[n] .delpos  +  3  ; 

}  } 

f advance (1 2, t5)  ; 


} 


i  +  1 


/* 

/* 

/* 

/* 


end  for  m  =  —  */ 
end  for  1  =  —  */ 
end  if  k  >=  0  */ 

end  for  i  =  —  */ 


END  MATGEN' 


*/ 


*/ 


/A**************************************************************** 

*  RFDEL  SUBROUTINE  * 

*  * 

*****************************************************************  J 


rfdel(nl , codel , code2 , rx) 
int  nl,  codel,  code2; 


FILE  *rx 


{ 


int  inp  ; 
lim  =  o  ; 
del_tab  [indexl., 
index  =  index  + 


del_tab 
del  tab 


indexl 

indexl 


*/ 


.val  =  0  ; 

1  ; 

. dsc_nb  =  target  ; 

_  .num_ipt  *  savparl; 

del_tab I indexl ] .num_opt  =  savpar2; 

lim  =  lim  +  parm2  -  1  ;  /*  lim  is  incremented  by  #  of  outputs*/ 
fadvance(2)  ; 
if  (codel  >  1) 

fprintf(rx,"6 
del_tabfindexl' 
del  tab [indexl' 
if  Tnl  ==  0) 

del_tab [ indexl ] .typ_num  =  10 

else 

del  tab [indexl 1 ,typ  num  =11 
codel  =  coclel  -  2  ; 
while (  codel  >  0) 


/*  first  access  desc 

d  ".target); 

_ =  del  t_ 

.indx  =  index; 


.targe  , , 

.val  =  del  tab [indexl] .val  +  2 


{ 


fprintf (rx, "7  "); 

del_tab[ indexl] .val  =  del_tab[ indexl] .val  +  1 


1  } 

else 

{ 


f advance (l,rx)  . 
codel  =  codel  -  2 


/*  if  pari  >  1  */ 

/*  if  pari  =  1 


*/ 


fprintf (rx, "4 


del_tab 

deltab 


if  Tnl  ==  0 

else 


indexl 

indexl 


d  ".target); 
.val  =  d 


_ . _el  tab [indexl] .val  +  2 
.indx  =  index,- 


inp  =  savparl  ] 
if; (code2  ==  0) 


{ 


del_tab [ indexl ] .typ_num  =  10 
del_tab [ indexl ] .typ_num  =  11 
2  ;  /*  even  or  odd  pari 


*/ 


fprintf (rx, "5  ]d  ]d  ",  ((2+nl)  +  2*inp),  num)  ; 
del_tab[ indexl] .val  =  dei^tabf indexl] .val  +  3  ; 

/*  multi-output  case  */ 


J 

else 

code2  =  code2  -  1 
fprintf(rx,"8  ") 


indexl ' 


del  tab 

del  tab k _ 

if  Tnl  ==  0) 


indexl] . 


val  =  del  tab [indexl] .val  +  1 
indx  =  index; 
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del_tab [ indexl ] . typ_num  =  10  ; 

else 

del_tab [ indexl ] .typ_num  =  11  ; 
f advance ( 3, rx)  ; 
while  (code2  >  0) 

^fprintf(rx,"9  ")  ; 

del_tab[ indexl] .val  =  del_tab [ indexl ] .val  +  1  ; 
fadvance(l,rx)  ; 
code2  =  code2  -  1  ; 

il  (inp  =  0) 

!tf  <nx  ~  0, 

fprintf{rx,"10  ]d  ",num)  ; 

del_tab[ indexl] .val  =  del_tab [indexl] .val  +  2  ; 

else 

fprintf{rx,"ll  ]d  ; 

del_tab[ indexl] .val  =  del_tab[ indexl] .val  +  2  ; 

els.’ 

^if  (nl  ==  0) 

{ 

fprintffrx, "12  ]d  ",num)  ? 

del_tab[ indexl] .val  «  del_tab[ indexl] .val  +  2  ; 

else 

fprintf(rx,"13  ]d  ",num)  ; 

del_tab( indexl] .val  =  del_tab[ indexl] .val  +  2  ; 
ance(2,rx)  ; 


codel  =  savparl  ; 
code2  =  savpar2  ; 
indexl  =  indexl  +  1  ; 

/*  end  RFDEL  */ 

. END  RFDEL . */ 
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APPENDIX  F 

FILES  NECESSARY  TO  THE  CADD  PROGRAMS 


j  ’k’k'k'k'kk-k'k'k'k'k'k'k'k'k’k’k’k'k-k'kk-k'k'k'k'k’k’k'k’k'k'k'k'k.lrk'k'k-k’k'k'k'k'k-k'k'k'k'k'k  kkkkkk'kk'kkk'k'kkkkk 


* 

■k 


BLDEL  file 


**********  *********************  *  **  ******  A*****  A*********************  j 

AND  / 


1 

1 


2 

0  0 
1  0 
OR 
2 

0  0 
1  0 
NAND 
2 

0  0  11 
10  11 
NOR 
2 

0  0  11 
10  11 
INVERT 
1 

0  0  11 
ANDTHRE 
3 

0  0  11 
10  11 
2  0  11 
NANDTHR 
3 

0  0  11 
10  11 
2  0  11 
SRBLOCK 
8 


0 

2 

0 

2 

1 

1 

0 

2 


RETDBLO 
24 


0 

2 

3 

4 

5 
0 
2 

3 

4 

5 
0 
1 
2 

3 

4 
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*  *  * 


0  3  2  2 

2  3  2  2 

3  3  2  2 

4  3  2  2 
0  4  2  2 

2  4  2  2 

3  4  2  2 

4  4  2  2 

5  4  2  2 
ANDFOUR 
4 

0  0  11 
10  11 
2  0  11 

3  0  11 
NANDFOU 

4 

0  0  11 
10  11 
2  0  11 
3  0  11 
ORTHREE 

3 

0  0  11 
10  11 
2  0  11 
ORFOUR 

4 

0  0  11 
10  11 
2  0  11 
3  0  11 
EXOR 
2 

0  0  11 
10  11 
END 

/************************END  BLDEL ***********************************/ 


/A****************************************************************** 

*  * 

*  BLOCK  file  * 

K  ^ 


{ 


*ou 


^AND(flg  ,inpx,ou) 
xnt  fig  ,  *inpx,  * 

int  i  ; 

if. (f1?  =7  0) 

xndata  (  xnpx,  2)  ; 

i  =  <*i*?P*)  +  (*(inpx  +  1)) 
swxtch(x) 

=  1  ? 


NAND  GATE- 


/ 


*/ 


{ 


case  0 
case  1 
case  2 


brea 

(*ou 

brea 


=  1 


!  *wrj  r l) 


j 


else 

(*ou)  =  1 
break 

default  s  (*ou)  =  2 


} 


num_outs 
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■*/ 


/*. 


ou 


NOR (fig  ,inpx,  ou) 
int  fig  ,  *mpx,  * 

^int  i  ; 

if  (fig  ==  0) 

indata  (  inpx,  2)  ; 

i  =  (*inpx)  +  (*(inpx  +1))  ; 
switch (i; 


•NOR  GATE- 


{ 


case  0  : 
case  1  : 
case  2  : 

default 


} 


(*Ou)  =  1  ; 
break  ; 

(*ou)  =  0  ; 
break  ; 

*WPi  r 11 

else 

(*ou)  =  2  ; 
break  ; 

:  if  (U*inpx)  ==  1)  ||  ( (*(inpx  +  1)) 
(*ou)  =  0; 

else 

(*ou)  =  2  ; 


==  1)> 


num  outs  =  1 

}* . 


/* . 

ANDTHRE(flg  ,inpx,  ou) 
int  fig  ,  *inpx,  *ou  ; 

int  inn [2]  : 
if  (flg==  6) 
indata (inpx,  3)  ; 


AND (1. inpx.  inn)  ; 
innjlj  =  (A(inpx  +2))  ; 
AND(l,inn,  ou)  ; 

num_outs  =  1  ; 


■THREE  INPUT  AND  GATE- 


/* . . 

NANDTHR( f lg  ,inpx,  ou) 
int  fig  ,  *inpx,  *ou  ; 

int  m  ; 


•THREE  INPUT  NAND  GATE- 


if 


,1 


(fig  ==  0) 
indata (inpx,  3)  ; 


ANDTHRE ( 1 ,  inpx ,  Sen)  ; 
INVERT  ( 1 ,  Sjn ,  ou)  ? 

num_outs  =  1  ; 


/* . SRBLOCK- 

SRBLOCK(flg  ,inpx,  ou) 


■*/ 

■*/ 


■*/ 

■*/ 


■*/ 

■*/ 


■*/ 
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$ 


1 


: 


as 


& 


a 


•w 


>>; 


9 


int  fig  ,  *inpx,  *ou  ; 


int  inn[2] 


if  (fig  ==  0) 
indata (inpx,  3) 


NAND(1,  inpx.  inn)  : 
inn[l]  =  (*(i npx  +  $))  ; 

(*ou)  =  (*inni  r 


(*ou)  =  (*inn)  ; 

NAND ( 1 ,  inn,  (ou+1))  ; 
(*(ou+2))  =  d(ou  +  l))  ; 


/*  X  output  is  same  as  Q1  */ 


num  outs  =  3 


RETDBLO(flg  ,  inpx  ou) 
int  fig  ,  *inpx,  *ou  ; 

int  i,  inn[3]  ; 


-RETDBLOO- 


if  (fig  ==  0) 
indata (inpx. 


indata (inpx,  6)  ; 
NAND ( 1 , ( inpx  +  3), inn) 


inn[ll  : 
inn [ 2 1 
NANDTHR 
NANDTHR 


1]  =  (*inpx)  ; 

2]  =  ( * ( inpx  +  2)) 
THR(l,inn,  (ou+3));, 

( 1 , ( inpx  +  2) 


/*  A  ■  NAND (XI ,  X2)  */ 
/*  innfO]  =  A  */ 


(inpx  +  2),&(inn[2] 


i[01  = 
l  1  = 

l  2  = 

=  NAN 


/*  X2  =  nandt: 

));/*  B  =  NAND 


NAND (1, (inpx  +  4),ou) 
inn[0]  =  (’'ou)  : 
inn r 11  =  (*inpx)  ; 
NANDTHR(1,  inn, (ou+1); 


/*  inn [2]  =  B 
/*  9  =  nXnD(X2,  X3)  ; 

/*  innfO]  =  Q 
/*  inn[lj  »  clr 
/*  Oc  *  NANDTHRE(Q,clr,B); 
/*  mn[0]  =  D 

/*  XI  =  NANDTHRE(B ,  clr,  D) 
/*  X3  =  Qc 


=  clr  */ 

=  CLK  */ 

ANDTHRE(A,clr,CLK); 
NANDTHRE(X2,  CLK,  X 


NANDTHR(1,  inn, (ou+1] 
innfO]  =  (*(inpx  +  1 
NANDTHR ( 1 ,  inn,(ou+2 
(*(ou+4) )  =  (*(ou  +  j 
num_outs  =  5  ; 


!!l: 

=  NANI 


A, clr, CLK);  */ 
(X2 ,  CLK,  XI)*/ 

3)  ;  */ 


/* . FOUR  INPUT  AND  GATE- 

ANDFOUR (fig  , inpx,  ou) 
int  flrr  *inujr  "ou  • 


int  fig  ,  *inpx,  *ou  ,* 
int  inn[2] ; 


if  (fig  ==  0) 
indata (inpx 


a ( inpx ,  4)  ; 


ANDTHRE ( 1 ,  inpx,  inn)  ; 
innfl]  =  (*(inpx  +3))  ; 
AND(l ,  inn,  ou)  ; 


numouts  =  1 


NANDF0U(f lg  ,inpx,  ou) 
int  fig  ,  *inpx,  *ou  ; 


-NANDFOURO- 


int  m  ; 


•»1 

<4 

a 

%T 


if  (fig  ==  0) 

indata (inpx,  4)  ; 

ANDFOUR( 1 , inpx ,  &m)  ; 
INVERT ( 1 ,  Sun,  ou)  ; 

num_outs  =  1  ; 


ORTHREE(flg  , inpx,  ou) 
int  fig  ,  "inpx,  *ou  ; 

int  inn [2] ; 


if  (fig  ==  0) 

indata (inpx,  3)  ; 

OR (1, inpx  inn)  ; 


-ORTHREEO- 


innfl]  =  (*(inpx  +  2)) 
0R( 1 ,  inn,  ou)  ; 

num_outs  =  1  ; 


ORFOUR(flg  ,inpx,  ou) 
int  fig  ,  *mpx,  *ou  ; 

int  inn[2]  ; 

if  (fig  ==  0) 

indata(inpx,  4)  ; 

ORTHREE ( 1 , inpx ,  inn)  ; 
innfl]  =  (*(inpx  +  l)j  ; 
OR(l,  inn,  ou)  ; 

num_outs  =  1  ; 


■FOUR  INPUT  OR  GATE- 


EX0R(flg  ,inpx,  ou) 
int  fig  ,  *inpx,  *ou  ; 

int  i  ; 

if  (fig  ==  0) 

indata (inpx,  2)  ; 

i  =  (*inpx)  +  (*(inpx  +  1)) 
switch(i) 

case  0  s  (*ou)  =  0  ; 
break  ; 

case  1  :  (*ou)  =  1  ; 
break  ; 


■EXOR  GATE- 


case  2 


“(isl-pi  r 1 


else 

(*ou)  =  2 
break  : 

default  :  (*ou)  =  2 


num  outs  =  1  ; 

} 

/* . */ 

/  aaaaaaaaaaaaa*aaaa*aaaaa£|^d  BLOCK*********************************** / 


/  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
'  A  * 

*  FADDR  file  * 

*  A 
AAAAAAAAAAAAAAAAAAAAAAAAAAA*AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  j 

/*  Addresses  of  primitives  supported  */ 


pnfnf3 
pnfn  '4 
pnfn  6 
pnfn  '7 
pnfn  8 
pnfn  9 
pnfn  la' 
pnfn  'll1 
pnfn  12 
pnfn  13 
pnfn[14‘ 


NAND  ; 

NOR  ; 

EXOR  ; 

ANDTHRE 

NANDTHR 

SRBLOCK 

RETDBLO 

ANDFOUR 

NANDFOU 

ORTHREE 

ORFOUR 


pncnt  =  15  ; 

/aAAAAAAAAAAAAAAAAAAAAAAAejj^  FADDR*****^***************************** j 


I AAAAAAAAAAAAAAAAAAAAAAAA***AAAAAAAAAAAAAAAAAA**AA******AAAAAAAAAAAAA 

*  FTYPE  file  * 

A  A 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  J 

int  NANDO  ; 
int  N0RO  ; 
int  ANDTHRE ()  ; 
int  ORTHREE ()  ; 
int  NANDTHR ()  ; 
int  SRBLOCK ()  ; 
int  RETDBLO 0  ; 
int  ANDFOUR ()  ; 
int  NANDFOU ()  ; 
int  ORFOUR ()  ; 
int  EX0RO  : 

/AAAAAAAAAAAAAAAAAAAAAAAAgJ^p  FTYPE *********************************** j 


^AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA*A**AAAAAAAAAAAAAA 

*  PRIM2.C  file  * 

A  A 

AAAA*A*AAAAA*A****AA*****A*******AAA********************************  J 


t A A A*********** A****************** A A**** ***************************** 


AAAAAAAA 


Logic  Primitive  Descriptions  File 

***************************************************************  J 


ttinclude  "cs\lc\stdio.h" 

#define  maxprim  100 

struct  prim_tab  { 

char  nam[8] ,nam2[8] ; 
int  numpar,outp; 
int  normld.  fanout; 
int  technology,  overld; 
} ;  .  , 

struct  pnm_tab  *tempptr; 

primsetup(primptr) 

struct  prim_tab  *primptr; 


extern  int  prim_count, features [maxprim] [2] ,* 
int  i; 
char  ch; 

FILE  *xp ; 

tempptr=primptr; 

strcpy( ("primptr) .nam,  "READIN")  ; 
primptr++; 

strcpy((*primptr) .nam,  "AND")  ; 
primptr++; 

strcpy( (*primptr) .nam,  "OR")  ; 
primptr++; 

strcpy((*primptr) .nam,  "NAND")  ; 
primptr++; 

strcpy( (*primptr) .nam,  "NOR")  ; 
primptr++; 

strcpy( (*primptr) .nam,  "INVERT")  ; 
primptr++; 

strcpy( (*primptr) .nam,  "EXOR")  ; 
primptr++; 

strcpy( (*primptr) .nam,  "ANDTHRE")  ; 
primptr++; 

strcpy( (*primptr) .nam,  "NANDTHR")  ; 
primptr++; 

strcpy((*primptr) .nam,  "SRBLOCK")  ; 
primptr++; 

strcpy( (*primptr) .nam,  "RETDBLO")  ; 
primptr++; 

strcpy( (*primptr) .nam,  "ANDFOUR")  ; 
primptr++ ; 

strcpy( (*primptr) .nam,  "NANDFOU" )  ; 
primptr++; 

strcpy( (*primptr) .nam,  "ORTHREE")  ; 
primptr++; 

strcpy((*primptr) .nam,  "ORFOUR")  ; 
primptr++ ; 

strcpy((*primptr) .nam, "USERl" ) ;  /*  set 

primptr++; 

strcpy( (*primptr) .nam, "USER2" ) ;  /*  we1! 

primptr++; 

strcpy((*primptr).nam,"USER3");  /*  are  « 

primptr++ ; 

strcpy( (*primptr) .nam, "USER4") ; 
primptr++; 

strcpy((*primptr) .nam,"USER5") ; 
primptr++; 

strcpy((*primptr) .nam,"USER6") ; 
primptr++; 

strcpy( (*primptr) .nam, "USER7" ) ; 
primptr++; 

strcpy( (*primptr) .nam, "USER8" ) ; 
primptr++; 

strcpy( (*primptr) .nam, "USER9" ) ; 
primptr++; 

strcpy((*primptr).nam,"USER10"); 

primptr++; 

strcpy( (*primptr) .nam, "USER11" ) ; 
primptr++; 

strcpy( (*primptr) .nam, "USER10" ) ; 
primptr++; 

strcpy( (*primptr) .nam,"USER12") ; 
primptr++; 

strcpy( (*primptr) .nam,"USER13") ; 
primptr++; 

strcpy( (*primptr) .nam, "USER14" ) ; 
primptr++; 

strcpy( (*primptr) .nam,"USER15") ; 
primptr++; 


/*  set  up  user-defined  prims  */ 
/*  we'll  check  to  see  if  any  */ 
/*  are  actually  present  later  */ 


strcpy{ (*primptr) .nam,"USER16") ; 
primptr++; 

strcpy( (*primptr) .nam, "USER17") ; 
primptr++; 

strcpv( (*primptr) .nam, "USER18") ; 
primptr++; 

strcpy( (*primptr)  .nam,"USER19")  ; 
primptr++; 

strcpy((*primptr) .nam, "USER20" ) ; 
primptr++; 

strcpy(  (*primptr)  .nam,  "USER2111 ) ; 
primptr++; 

strcpy( (*primptr) .nam, "USER22") ; 
primptr++; 

strcpy( (*primptr) .nam,"USER23")  ,- 
primptr++; 

strcpy( (*primptr) .nam, "USER24") ; 
primptr++; 

strcpy((*primptr)  .nam,llUSER25")  ; 
primptr++; 

strcpy( (*primptr) .nam, "USER26") ; 
primptr++; 

strcpy( (*primptr)  .nam,"USER27") ; 
primptr++ ; 

strcpy((*primptr) .nam, "USER28") ; 
primptr++ ; 

strcpy( (*primptr) .nam, "USER29" ) ; 
primptr++ ; 

strcpy( (*primptr) .nam,"USER30") ; 
primptr++ ; 

strcpy((*primptr) .nam, "USER31" ) ; 
primptr++ ; 

strcpy((*primptr) .nam, "USER30") ; 
primptr++; 

strcpy( (*primptr) .nam, "USER32" ) ; 
primptr++; 

strcpy( (*primptr) .nam, "USER33" ) ; 
primptr++j 

strcpy( (*primptr) .nam, "USER34" ) ; 
primptr++; 

strcpy( (*primptr) .nam, "USER35" ) ; 
primptr++ ; 

strcpy( (*primptr) .nam, "USER36") ; 
primptr++; 

strcpy ( (*primptr ) . nam , "USER37" ) ; 
primptr++; 

strcpy< (*primptr) .nam,"USER38"); 
primptr++; 

strcpy( (*primptr) ,nam,"USER39") ; 
primptr++; 

strcpy( (*primptr) .nam, "USER40") ; 

primptr=tempptr,-  /*  reset  pointer  to  start  */ 

fp=fopen(MD:primitiv.dat","r11 ) ;  /*  get  additional  info  from  disk*/ 

scanf(xp,"]d" {&prim  count); 
for  (i=0;  i<prim_count;  i++) 

fscanf(xp,"]s  ]d  ]d  ]d  Id" , (*primptr) .nam2,&(*primptr) .numpar, 

&<*primptr) .outp,&reatures[i] [o] ,&features[i] [i] ) ; 

^rimptr++; 
fclose(xp) ; 


/******************************************************************** 

*  PRIMITIV.DAT  file  * 

*  * 
***5^***************************************************************^ 

READIN  0020 
AND  2  1  2  0 
OR  2  1  2  0 
NAND  2120 
NOR  2  1  2  0 
INVERT  1120 
EXOR  2120 
ANDTHRE  3120 
NANDTHR  3120 
SRBLOCK  3321 
RETDBLO  6521 
ANDFOUR  4120 
NANDFOU  4120 
ORTHREE  3120 
ORFOUR  4120 

/************************£ PRIMITIV . DAT**************************** / 

/******************************************************************** 

*  STRUC  file  * 

*  * 
********************************************************************, 

MODULE  :  INVERT  ;  ' 

INPUTS  :  A  ; 

OUTPUTS  s  B  ; 

TYPES:  ; 

f' 

MODULE  :  AND  , 

INPUTS  :  A,  B  ; 

OUTPUTS  :  Z  ; 

TYPES:  • 


MODULE  :  OR  ; 
INPUTS  :  A,  B  ; 
OUTPUTS  :  Z  ; 
TYPES  :  ; 


MODULE  :  ANDTHREE  ; 
INPUTS  :  A,  B,  C  ; 
OUTPUTS  :  Z  ; 

TYPES  :  ; 


MODULE:  NANDTHRE  ; 
INPUTS:  A,  B,  C  ; 
OUTPUTS  :  Z  ; 

TYPES  :  ; 

f 

MODULE  :  ORTHREE  ; 
INPUTS  :  A,  B,  C  ; 
OUTPUTS  :  Z  ; 

TYPES  :  ; 

i 


MODULE  : 

EXOR  ; 

INPUTS  : 

A,  B  ; 

OUTPUTS 

s  Z  ; 

TYPES  s 
\ 

t 

- 

MODULE  : 

NAND  ; 

INPUTS  s 

A,  B  ; 

OUTPUTS 

:  Z  ; 

TYPES  : 
f 

/ 

1 

MODULE  : 

NOR  ; 

INPUTS  s 

A,  B  ; 

OUTPUTS 

:  Z  ; 

TYPES  : 
f 

/ 

' 

MODULE  ; 

ANDFOUR 

INPUTS  : 

A,  B,  C 

OUTPUTS 

:  Z  ; 

TYPES  : 

( 

/ 

MODULE  : 

NANDFOU1 

INPUTS  ; 

A,  B,  C 

OUTPUTS 

:  Z  ; 

TYPES  : 
f 

/ 

MODULE  s 

ORFOUR 

INPUTS  : 

A,  B,  C 

OUTPUTS 

:  Z  ; 

TYPES  : 

• 

9 

- 

MODULE  : 

SRBLOCK 

INPUTS  : 

S,  R,  X 

OUTPUTS 

;  Q,  QC, 

TYPES  : 

{ 

9 

)  =  NAND(S,  QC)  ; 
}C  =  NAND(Q,  R)  ; 


MODULE  ;  RETDBLO  ; 

INPUTS  :  CLR,  D,  CLK,  DUM1 ,  DUM2 ,  DUM3  ; 

OUTPUTS  :  Q,  QC,  DM1,  DM2,  DM3  ; 

TYPES  :  INTERNALS  :  X,  Y,  W,  Z  ; 

X  =  NAND(Z,  Y)  ; 

Y  =  NANDTHRE (  X,CLR,  CLK)  ; 

W  =  NANDTHRE (Y,  CLK,  Z)  ; 

Z  =  NANDTHRE (W.  CLR,  D)  ; 

Q  =  NAND(Y,  QC)  ; 

QC  =  NANDTHRE (Q,  CLR,  W)  ; 

I  ***I*(********************£fJQ  S'JJ^UC*,i!********:*!*****,,t*,,r***,,!************ / 


/******************* ********************** A********* A**************** 
*  * 


*  C0MP2B.BAT  file 

* 


•k 

k 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk J 

lc  -ml  -n20  cadd2b 


lc  -ml  -n20  prim2 
lc  -ml  -n20  precomp 

link  \lc\l\cl+cadd2b+prim2+precomp,caddrd2b. .\lc\l\lcl 

/*********** ****** ***£*** £{$5  COMP 2 B . BAT****************************** / 


/  *************************************** ****************** *********** 

A  * 

*  C0MP3B.BAT  file  * 

*  * 
*********  ************** *********** A********* ********* A********  kkkk  kk  J 

lc  -ml  -n20  cadd3b 
lc  -ml  -n20  prim2 
lc  -ml  -n20  prcmpl 

link  \lc\l\cl+cadd3b+prim2+prcmpl ,caddrd3b, . \lc\l\lcl 
I *x*******A*yt********5*7t*£fjp  C0MP3B .  BAT***''"************************* / 


/A******************************************************************* 
*  * 


*  MODEL2A.BAT  file 

* 


k 

k 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk j 

echo  off 


echo  Setting  up. . . 

if  2==c  goto  compl 

if  2==C  goto  compl 

if  ‘ 2==S  goto  simul 

if  ]2==s  goto  simul 

copy  11  d:\ 

copy  ll.in  d:\ 

copy  \simd\struc  d: 

copy  \simd\bldel  d: 

copy  \simd\primitiv.dat  d: 

echo  Entering  the  VOHL  Compiler... 

caddrd2b  =16000  ds ] 1 
simrd  D:ll.in  D:]l.out 
type  d: 11. out 

copy  d: J 1 . out  c:\simd\]l.out 


pause 

goto  done 

:  compl 

copy  11  d:\ 

copy  \simd\struc  d: 

copy  \simd\bldel  d: 

copy  \simd\primitiv.dat  d: 

echo  Entering  the  VOHL  Compiler... 

caddrd2b  =16000  d : ] 1 

copy  dsmodf  c:\simd\ll.mdf 

copy  dsiniti  c:\simd\ll.int 

copy  dsdescf  c:\simdV  l.dcf 

copy  d:delf  c:\simd\Jl.ddf 

copy  d:prnt  c:\simd\jl.ptt 

goto  done 

: simul 

copy  Jl.in  d:\ 
copy  c:\simd\ll.mdf  d:modf 
copy  c:\simd\'  l.int  d:initi 
copy  c s\simd\' 1 .dcf  dtdescf 
copy  c:\simd\'  l.ddf  d:delf 
copy  cs\simd\Jl.ptt  d:prnt 
simrdl  Dsjl.in  D:Jl.out 
type  d; 11. out 

copy  d : J 1 . out  c:\simd\Jl.out 


1 


si 

VI 

SI 

v| 

*<JI 


pause 

:done 

echo 


copy 

copy 

copy 

copy 

copy 

copy 

copy 

copy 

copy 

copy 

echo 


dsmodf  c:\simd\Jl.mdf 
dsiniti  c:\simd\ll.int 
dsdescf  c:\simd\1l.dcf 
dsdelf  c:\simd\tl.ddf 
dsprnt  c:\simd\Jl.ptt 
dssymtable  c:\simd\U.stb 
dsdescptab  c s\simd\' 1 .dct 
d:nortable  cs\simd\' l.nrt 


Cleaning  Up ... . 

l.mdf 
] 1 . int 
Jl.dcf 
l.ddf 


dsinptable  c:\simd\jl.ipt 
dsdeltable  c s\simd\J 1 .del 


copy 

copy 

echo 

j  ick-k  > 


Saving  Descriptor  Data... 
dsprimitiv.dat  \simd 
d:?truc  \simd 

Returning  to  DOS... 

-’.**^****************gjijQ  M0DEL2A .  BAT***************************** / 


*  M0DEL3B.BAT  file  * 

*  * 
****************************************************x**jk************  j 

echo  off 

echo  Setting  up. . . 

V  It  1  a  «  <■  <  «  a  *  1 


echo  £ 

copy  \simd\] l.mdf  dsmodf 
copy  \simd\  l.int  dsiniti 
copy  \simd\'l.dcf  dsdescf 
copy  \simd\'  l.ddf  dsdelf 
copy  \simd\  l.ptt  dsprnt 
copy  \simd\'l.stb  dssymtable 
copy  \simd\  l.dct  dsdescptab 
copy  \simd\  l.ipt  dsinptable 
copy  \simd\  l.nrt  dsnortable 
copy  \simd\  l.del  dsdeltable 
if  ]2==c  goto  compl 


ir  ]2==c  goto  compl 
if  1 2==C  goto  compl 
if  12*=S  goto  simul 
if  ]2==s  goto  simul 
copy  ll.ea  ds\ 
copy  ll.in  ds\ 
copy  \simd\struc  ds 
copy  \simd\bldel  ds 
copy  \simd\primitiv.dat  ds 

echo  Entering  the  VOHL  Editor... 

caddrd3a  =16000  dsll.ed 
simrdl  Ds]l.in  Dsjl.out 
type  dsll.out 

copy  dsjl.out  cs\simd\]l.out 
pause 
goto  done 
s compl 

C0Py  ]l-ed  ds\ 
copy  \simd\struc  ds 
copy  \simd\bldel  ds 
copy  \simd\primitiv.dat  ds 

echo  Entering  the  VOHL  Editor... 

caddrd3a  =16000  dsjl.ed 

copy  dssimdata  c s\simd\] 1 .sim 

goto  done 

s simul 


copy  ll.in  d s \ 
simrdl  Ds]l.in  Dsjl.out 


type  dsll. 
copy  dsjl. 
pause 
s  done 
echo 


out 

out  Cs\simd\]l.out 


Cleaning  Up. . . . 


copy  dsmodf  c:\simd\ll.mdf 

copy  dsiniti  c:\simd\ll.int 

copy  d:descf  c:\simd\1l.dcf 

copy  dsdelf  c:\simd\Jl.ddf 

copy  dsprnt  c:\simd\1l.ptt 

copy  d:symtable  c:\simd\ll.stb 

copy  dsdescptab  cs\simd\  l.dct 

copy  dsinptable  cs\simd\' 1 .ipt 

copy  dsnortable  c :\simd\' 1 .nrt 

copy  dsdeltable  C:\simd\Jl.del 

echo  Saving  Descriptor  Data... 

copy  d-.primitiv.dat  \simd 

copy  dsstruc  \simd 


APPENDIX  G 

NECESSARY  FILES  TO  THE  MULTISIM  PACKAGE 


CADD2A.C  -  The  source  code  for  the  VOHL  compiler,  that  includes  the  code 
generator. 

PRECOMP.C  -  The  source  code  for  the  precompilation  routines  of  the  compiler 
program. 

PRIM2.C  -  The  primitive  initialization  routine. 

CADD3B.C  -  The  source  code  for  the  editor  program. 

PRCMP1.C  -  The  source  code  for  the  second  part  of  the  editor  program.  This 
program  needs  to  be  linked  with  the  CADD3B.C  program  to  allow  the  edition  of  a 
circuit. 


TWHEEL1.C  -  The  source  code  for  the  timing  wheel  simulator  program. 

FTYPE  -  The  primitive  function  type  declarations.  It  is  an  ^include  file. 

FADDR  -  The  primitive  function  pointer  initializations.  It  is  an  ^include  file. 

BLOCK  -  The  C-language  behavioral  descriptions  for  the  primitives.  It  is  an 
#include  file. 

STRUC  -  The  primitive  library  containing  VOHL  structural  descriptions. 

PRIMITIV.DAT  -  The  data  file  containing  the  user's  names  fo  the  primitives 
and  various  other  information. 

BLDEL  -  The  block  delays  for  each  primitive.  This  file  contains  the  value  of  the 
default  delays  from  each  input  to  each  output  for  all  the  primitives  of  the  system. 

COMP2A.BAT  -  The  DOS  file  that  allows  the  compilation  and  link  of  the 
various  programs  that  perform  the  compilation  of  a  circuit. 

COMP3B.BAT  -  The  DOS  file  that  allows  the  compilation  and  link  of  the 
various  programs  that  perform  the  edition  of  a  circuit. 

MODEL2A.BAT  -  The  DOS  file  that  allows  the  execution  of  the  compilation 
and  simulation  of  a  circuit. 


4 

'A 
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ft 
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M0DEL3B.BAT  -  The  DOS  file  that  allows  the  execution  of  the  edition  and 
simulation  of  a  circuit. 
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APPENDIX  H 
THE  ALU  CIRCUIT 


MODULE  :  ALU  ; 

INPUTS  :  A,  B,  C,  D,  E,  F,  G,  H,  I,  J,  K,  L,  M,  N,  0,  P,  Q, 

R  S  Y  Z  • 

OUTPUTS  :  ALU3 ,  ALU2 '  ALU1,  ALUO,  CYOUT,  2R,  OV,  RI,  PI,  GI  ; 

TYPES  :  INTERNALS  :  HO,  HI,  H2,  H3,  KO ,  K1 ,  K2,  K3,  SO,  WO,  W1 ,  W2,  W3, 

SI,  S2,  S3,  LO,  LI,  L2,  L3,  H4,  H5,  H6,  H7 ,  H8,  H9,  H10  ; 

K3 ,  K2,  Kl,  KO,  H5,  H7,  PI,  GI ,  HO  =  ARITHMETIC  (I,  A,  B,  C,  D. 

H  G  F  E  J  K)  * 

L3,  L2 ,  LI,  LO,  HI  =  LOGIC  (A,  B,  C,  D,  E,  F,  g[  H,  l',  m[  n'  0,  P)  ; 
H4,  S3,  S2,  SI,  SO,  H6 ,  H2  =  SHIFT  (Y,  A,  B,  C,  D,  Z,  Q,  R,  S)  ; 

WO  *  ORTHREE  (KO,  LO,  SO] 

W1  =  ORTHREE  (Kl,  LI,  SI 
W2  ■  ORTHREE  (K2,  L2,  S2 
W3  =  ORTHREE  (K3,  L3,  S3]  , 

H9  =  ORFOUR  (WO,  W1 ,  W2,  W3)  ; 

H10  =  INVERT  (H9)  ; 

H8  =  OR  (H6 ,  h5)  ; 

H3  =  ORTHREE  (HO,  HI,  H2)  ; 

ALU3 ,  ALU2 ,  ALU1 ,  ALUO,  CYOUT,  ZR,  OV,  RI  =  8GATE  (W3,  W2,  W1 ,  WO, 

H8,  H10,  H7,  H4,  H3)  ; 


DEFINE:  ; 

INITIALIZE:  Z  =  2  ; 

PRINTOUT:  CYOUT,  ALU3,  ALU2,  ALU1,  ALUO,  RI ,  ZR,  OV  ; 

MODULE  :  ARITHMETIC  ; 

INPUTS  »  X,  A,  B,  C,  D,  M,  N,  0,  L,  W,  Z  ; 

OUTPUTS  :  K3 ,  K2,  Kl,  KO,  COUT,  OV,  PI,  GI,  ENA  ; 

TYPES  :  INTERNALS  :  GO,  GI,  G2,  G3,  G4,  G5,  G6,  G7,  G8,  G9  ; 

1  GO,  GI,  G2,  G3  =  ADDSUB4  (M,  N,  0,  L,  W)  ; 

G4,  G5 ,  G6 ,  G7 ,  G8,  PI,  GI  =  4BITADD(X,  A,  B,  C,  D,  GO,  GI,  G2,  G3); 

G9  =  ADDOV  (D,  G3,  G7)  ; 

ENA  *  OR  (W,  Z)  ; 

K3,  K2,  Kl,  KO,  COUT,  OV  =  6GATE  (G7,  G6,  G5,  G4,  G8,  G9,  ENA)  ; 


MODULE  :  ADDSUB4  ; 

INPUTS  :  M,  N,  0,  P,  X  ; 
OUTPUTS  :  MO,  NO,  00,  PO  ; 
TYPES  :  ; 

{ 

MO,  NO  =  ADDSUB2(M,  N, 
00,  PO  =  ADDSUB2(0,  P, 


MODULE  :  ADDSUB2  ; 
INPUTS  :  M,  N,  X  ; 
OUTPUTS  :  MO,  NO  ; 

TYPES  :  ; 

{ 

MO  =  EXOR(M,  X)  ; 
NO  *  EXOR(N,  X)  ; 


MODULE  :  4BITADD  ; 

INPUTS  :  X,  A,  B,  C,  D,  M,  N,  0,  Q  ; 

OUTPUTS  :  SO,  SI,  S2,  S3,  COUT,  P.  G  ; 

TYPES  :  INTERNALS  :  AO,  Al.  A2 ,  A3,  A4,  A5.  A6.  A7 ,  A8,  A9,  A10,  All, 

A12,  A13 ,  A14 ,  A15,  A16,  A17,  A18,  A19,  A20  ; 


50,  A17 ,  A13  =  ADD(X,  A,  M)  ; 

AO  =  AND(X,  A17)  ; 

AlO  =  OR(AO,  A13)  ; 

51,  A18,  A14  =  ADD (AlO,  B,  N)  ; 

A1  =  AND (AO,  A18)  ; 

A2  =  AND(A18,  A13) 

All  =  0RTHREE(A1 ,  A2,  A14)  ; 

52 ,  A19 ,  A15  =  ADD(A11 ,  C,  0)  ; 

A3  =  AND(A1,  A19 )  ; 

A4  =  AND(A2 ,  A19)  ; 

A5  =  AND(A18,  A14)  ; 

A12  =  0RF0UR(A3,  A4,  A5,  A15)  ; 

53,  A20 ,  A16  =  ADD(A12,  D,  Q)  ; 

A6  =  AND (A3,  A20)  ; 

A7  =  AND(A4,  A20)  ; 

A8  =  AND(A5 ,  A20)  ; 

A9  =  AND(A20,  A15)  ; 

G  =  0RF0UR(A7,  A8,  A9,  A16)  ; 

COUT  =  0R(A6 ,  G)  ; 

P  =  ANDFOUR(A20 ,  A19,  A18,  A17)  ; 


MODULE  :  ADD  ; 

INPUTS  s  C,  A,  B  ; 

OUTPUTS  :  S,  PI,  GI  ; 

TYPES  s  ; 

{ 

PI  =  EXOR(A,  B)  ; 

GI  =  AND(A,  B)  ; 
jS  =  EXOR (C,  PI)  ; 

MODULE  s  ADDOV  ; 

INPUTS  s  A,  B,  X  ; 

OUTPUTS  :  OV  ; 

TYPES  *  INTERNALS  s  BO,  Bl,  B2,  B3,  B4  ; 

BO  =  INVERT  (X)  ; 

Bl  =  INVERT  (A)  ; 

B2  =  INVERT  (B)  ; 

B3  =  ANDTHREE  (A,  B,  BO)  ; 

B4  =  ANDTHREE  (B2,  Bl,  X)  ; 

OV  =  OR  (B3 ,  B4)  ; 


MODULE  :  LOGIC  ; 

INPUTS  :  A,  B,  C,  D,  M,  N,  0,  P,  K,  Y,  X,  Z,  R  ; 
OUTPUTS  s  L3,  L2,  l! ,  to ,  ENL  ; 

TYPES  :  INTERNALS  :  MO,  Ml,  M2,  M3,  M4  ; 


8,Ynt  1A- B' c’ D' N'  °- p' K' z- R)  ! 


ENL  =  OR  (M4,  R)  ; 
*7,  LI,  L2, 


LO,  LI,  L2,  L3  =  4GATE  (MO,  Ml,  M2,  M3,  ENL)  ; 


MODULE  :  LGUNIT4  ; 

INPUTS  s  A,  B,  C,  D,  M,  N,  0,  P,  K,  Y,  X,  Z,  R  ; 
OUTPUTS  i  LO,  LI,  Li,  L3  j 
TYPES  s  ; 

{ 

LO,  LI  =  LGUNIT2  (A,  B,  M,  N,  K,  Y,  X,  Z,  R)  ; 
L2,  L3  =  LGUNIT2  (C,  D,  0,  P,  K,  Y,  X,  Z,  R)  ; 


MODULE  :  LGUNIT2  ; 

INPUTS  :  A,  B,  C,  D,  X,  Y,  X,  Z,  R  ; 
OUTPUTS  s  LO,  LI  ; 

TYPES  8  ; 


LO 

LI 


} 


»  LGUNIT1  (A,  C,  K,  Y,  X,  Z,  R)  ; 
=  LGUNIT1  (B,  D,  K,  Y,  X,  Z,  R)  ; 


MODULE  s  LGUNIT1  ; 

INPUTS  s  A,  B,  K,  Y,  X,  Z,  R  ; 

OUTPUTS  :  LO  ; 

TYPES  t  INTERNALS  s  CO,  Cl,  C2,  C3,  C4,  C5,  C6,  C7,  C8,  C9,  CIO 


{ 


} 


CO  =  AND  (A,  B) 

Cl  =  OR  (A,  B)  . 

C2  =  EXOR  (A,  B)  ; 

C3  =  INVERT 
C4  =  INVERT 
C5  =  AND  (CO; 

C6  =  AND  (Cl,  Y) 

C7  =  AND  (C2,  X 
C3  =  AND  (C3 ,  Z 
C9  =  AND  (C4,  R)  . 

CIO  =  ORFOUR  (C5,  C6,  C7,  C8) 
LO  =  OR  (C9 ,  CIO)  ; 


ill ; 

>,  K  ; 


MODULE  s  SHIFT  ; 

INPUTS  s  X,  A,  B,  C.  D,  Y,  M,  N,  0  ; 

OUTPUTS  s  RI,  S3,  S2,  SI,  SO,  CY,  ENS  ; 

TYPES  *  INTERNALS  :  FO,  FI,  F2,  F3,  F4,  F5; 

1  ENS  =  ORTHREE  (M,  N,  0)  ; 

FI,  F2 ,  F3 ,  F4,  FO ,  F5  =  SHUNIT4  (Y,  D,  C,  B,  A,  X,  N,  M,  0) 
RI,  SO,  SI,  S2,  S3,  'CY  *  5GATE  (FO,  FI,  F2,  F3,  F4,  F5,  ENS) 


MODULE  «  SHUNIT4  ; 

INPUTS  :  L,  D,  C,  B.  A,  R,  N,  X,  Y  ; 
OUTPUTS  :  SO,  SI,  S2,  S3,  OUTR,  OUTL  ; 
TYPES  s  INTERNALS  s  DO,  D1  ; 

SO,  SI,  OUTR,  DO  =  SHUNIT2 
S2,  S3,  Dl,  OUTL  *  SHUNIT2 

} 


(C,  B,  A,  R,  N,  X,  Y)  ; 
(L,  D,  C,  B,  N,  X,  Y)  ; 


MODULE  :  SHUNIT2  ; 

INPUTS  :  L,  B,  A,  R,  N,  X,  Y  ; 
OUTPUTS  s  SO,  SI,  OUTR,  OUTL  ; 
TYPES  ;  ; 

{ 

50  =  SHUNIT1  (B,  A,  R,  N, 

51  =  SHUNIT1  (L,  B,  A,  N, 
OUTR  =  AND  (A,  Y)  ; 

OUTL  =  AND  (B,  X)  ; 


:  ?! 


MODULE  :  SHUNIT1  ; 
INPUTS  ;  C,  B,  A,  N,  L 
OUTPUTS  :  S  ; 

TYPES  s  INTERNALS  s  EO 

EO  =  AND  (B,  N) 
El  =  AND  (A,  L) 
E2  =  AND  (C,  R) 

S  =  ORTHREE  (EO, 


,  R  ? 

,  El,  E2 

f 

9 

'El,  E2) 


MODULE  :  8GATE  ; 

INPUTS  :  A,  B,  C,  D.  E,  F,  G,  H,  Z  ; 
OUTPUTS  :  BO,  B1 ,  B2,  B3,  B4,  B5 ,  B6,  B7  ; 
TYPES  *  ; 

r  ' 


"1 


BO,  Bl,  B2,  B3  =  4GATE  (A,  B,  C,  D,  Z)  ; 
^B4,  B5 ,  B6 ,  B7  =  4GATE  (E,  F,  G,  H,  Z)  ; 

MODULE  s  6GATE  ; 

INPUTS  :  A,  B,  C,  D,  E,  F,  X  ; 

OUTPUTS  s  GO,  Gl,  G2,  G3,  G4,  G5  ; 

TYPES  s  ; 

{ 

GO,  Gl,  G2 ,  G3  =  4GATE  (A,  B,  C,  D,  X)  ; 
jG4,  G5  =  2 GATE  (  E,  F,  X)  ; 

MODULE  s  4GATE  ; 

INPUTS  s  A,  B,  C,  D,  X  : 

OUTPUTS  :  10,  II,  12,  1$  ; 

TYPES  :  ; 

{ 


} 


10,  II  =  2GATE  (A,  B,  X)  ; 
12,  13  =  2GATE  (C,  D,  X)  ; 


MODULE  :  2 GATE  ; 
INPUTS  :  A,  B,  X  ; 
OUTPUTS  s  NO,  N1  ; 
TYPES  :  ; 

{ 

NO  =  AND 
N1  =  AND 

} 


(A,  X)  ; 
(B,  X)  ; 


END; 
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